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ABSTRACT 


This  thesis  describes  the  design  and  implementation  of  a 
relational  database  management  system  called  INFOSAM.  Its 
design  is  largely  based  on  Madnick's  proposed  design  for  a 
Database  Management  System  <Madnick79>.  Its  design  incorpo¬ 
rates  the  concept  of  hierarchical  decomposition,  whereby 
the  system  is  organized  into  levels  or  groups  of  modules 
which  share  a  common  function  or  view  of  the  data.  The  lev¬ 
els  are  hierarchically  related  such  that  a  given  level  is 
largely  implemented  through  the  services  provided  by  the 
next  lower  level.  INFOSAM  incorporates  3  major  levels, 
which  are  primarily  distinguished  by  their  view  of  the  data. 
They  are  the  External  level,  the  Nset  level  and  the  Internal 
level.  The  objective  of  this  stratification  is  to  provide  a 
high  degree  of  data  independence  for  the  user,  and  a  low 
level  of  functional  redundancy  in  the  system. 

A 

'  The  objective  of  this  thesis  project  was  twofold.  One 
objective  was  to  implement  a  sample  database  management  sys¬ 
tem  that  could  be  used  as  a  teaching  tool  in  classes  on 
Database  Management  Systems.  INFOSAM  is  small  enough  to  be 


2 


comprehensible,  yet  it  illustrates  many  of  the  key  features 
of  a  full  scaie  DBMS.  The  second  objective  was  to  provide 
the  INFOPLEX  project  with  a  software  test  vehicle  which 
could  be  used  to  gain  insights  into  the  Functional  Hierarchy 
of  the  INFOPLEX  DBMS.  Hence,  where  possible  its  design 
reflected  the  proposed  design  for  the  Functional  Hierarchy. 

This  thesis  is  organized  as  follows:  Chapter  1  provides 
an  introduction  to  the  area  of  Database  Management  Systems, 
and  sets  the  stage  for  the  remaining  chapters.  Chapter  2 
describes  the  relationship  of  INFOSAM  to  the  INFOPLEX  con¬ 
cept.  Chapter  3  is  a  detailed  overview  of  the  design  and 
implementation  of  INFOSAM.  Chapter  4  summarizes  the  prelimi¬ 
nary  implications  of  INFOSAM  for  the  INFOPLEX  design.  A  sam¬ 
ple  terminal  session  is  included  in  Appendix  1  and  the  com¬ 
plete  listings  for  the  system  are  included  in  Appendix  2. 
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Chapter  1 
INTRODUCTION 

Increasingly,  information  is  being  viewed  as  an  important 
resource.  It  has  been  argued  that  the  ability  of  a  firm  to 
effectively  manage  its  information  resource  may  provide  it 
with  an  important  competitive  advantage  in  the  coming  years, 
particularly  as  other  resources  become  increasingly  more 
scarce.  However,  information  is  unlike  any  other  resource 
available  to  the  firm,  in  that  the  problem  is  not  a  scarcity 

of  information  but  rather  that  there  is  often  too  much 

4 

information.  The  problem  has  become  one  of  organizing,  and 
managing  vast  amounts  of  information,  while  at  the  same  time 
shielding  users  from  the  complexity  of  managing  the  informa¬ 
tion,  and  allowing  them  to  access  information  quickly  and 
easily.  This  has  necessitated  the  development  of  software 
and  hardware  tools  with  which  to  address  this  problem. 

One  such  type  of  tool  is  the  database  management  system 
(DBMS).  A  DttixiS  is  specialized  software  system  which  is 
designed  to  shield  the  user  from  the  complexity  of  the  phy¬ 
sical  managment  of  the  information  by  acting  as  an  interface 

-  9  - 
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between  the  user  and  the  data. 


While  the  DBMS  is 


responsible  for  the  actual  physical  management  of  the  data, 
it  usually  provides  the  user  with  a  capability  to  express 
actions  on  the  database  in  terms  of  a  conceptual  data  model, 
which  may  bear  no  resemblence  to  the  manner  in  which  the 
data  is  actually  stored.  For  example,  the  DBMS  may  allow  the 
user  to  view  the  database  as  a  collection  of  tables. Any 
operation  the  user  issues  is  expressed  in  terms  of  opera¬ 
tions  on  these  tables.  It  is  the  responsibility  of  the  DBMS 
to  translate  operations  expressed  in  such  a  manner  into  the 
corresponding  operations  on  the  database  as  it  is  physically 
implemented.  The  user  never  needs  to  know  how  the  database 
is  actually  implemented.  Hence,  the  user's  view  of  the  data¬ 
base  need  not  change,  even  if  the  physical  implementation 
changes . 

There  are  other  aspects  of  a  DBMS  worth  noting,  which 
focus  more  on  the  data  management  aspects.  For  example,  the 
DBMS  may  provide  security  control,  whereby  only  certain 
users  may  have  access  to  particular  types  of  data.  On  the 
otherhand,  the  DBMS  may  allow  the  sharing  of  data  between 
different  users.  The  DBMS  may  increase  the  reliability  of 
the  information.  This  results  in  part  because  the  DBMS  cen¬ 
tralizes  control  over  the  data.  This  in  turn  may  reduce  the 
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redundancy  of  data,  and  hence  the  opportunity  for 
inconsistent  data  values.  In  addition,  the  DBMS  minimizes 
the  redundancy  of  function  among  application  programs,  and 
this,  in  itself,  increases  reliability.  A  100  different 
application  programs  can  share  the  services  provided  by  1 
search  routine.  Once  that  search  routine  has  been  debugged, 
there  is  no  need  to  worry  that  application  programs  won't 
work  because  of  an  incorrect  search  routine. 

There  are  currently  many  available  Database  Management 
Systems,  and  much  work  is  being  done  in  this  area.  For  a 
description  of  some  currently  available  systems  see  <Date> 
or  <Cardenas>  Key  areas  of  research  include.  Concurrency 
control  <Badal>,  <Bernstein>;  Multiple  External  views 
<Klug>;  Security  <Hsiao>;  Database  Machines  <Madnick75,  Mad- 
nick79,  Madnick80>,  <Hsaio77>;  and  Relational  DBMS 
<Codd> , <Astrahan> , <Hall> .  From  the  standpoint  of  a  manager, 
a  DBMS  is  probably  the  single  most  important  systems  program 
with  which  he  need  be  familar.  Hence,  it  will  become 
increasingly  important  for  managers  to  understand  database 
management  systems . 

This  thesis  describes  the  implementation  of  a  sample 
database  management  system  called  INFOSAM.  INFOSAM  is  a 


small  scale  relational  database  management  system,  designed 
and  implemented  as  part  of  a  Master's  thesis  at  MIT's  Sloan 
School  of  Management.  The  design  of  INFOSAM  is  based  on  Mad- 
nick's  design  for  a  DBMS  called  INFOPLEX  (see  <Madnick75>, 
<Madnick78>,  <Hsu>).  This  approach  incorporates  the  concept 
of  a  hierarchical  decomposition  of  a  DBMS,  into  levels  or 
collections  of  modules  which  share  a  common  function  or  view 
of  the  data.  The  levels  are  hierarchically  related  such  that 
a  given  level  is  largely  implemented  via  services  provided 
by  the  next  lower  level. 

The  objective  of  this  thesis  is  twofold.  First,  it  is 
intended  to  be  a  sample  database  management  system  that 
could  be  used  as  a  teaching  tool  in  a  course  at  Sloan  on 
database  management  systems.  The  goal  was  to  implement  a 
system  which  was  small  enough  to  make  it  comprehensible  as  a 
case  study,  yet  be  sophisticated  enough  to  illustrate  the 
key  features  of  a  DBMS.  For  example,  it  illustrates  how  the 
Ansi/Sparc  <Ansi/Sparc>  concept  of  shielding  the  user’s  view 
of  the  database  from  the  internal  implementation  of  the 
database  through  the  use  of  a  conceptual  level,  might  actu¬ 
ally  be  implemented.  It  illustrac.es  the  different  data 
models  of  the  different  levels  and  how  the  mapping  between 
levels  is  achieved.  At  the  same  time,  it  illustrates  a 


range  of  things  that  are  somewhat  mundane,  but  nonetheless 
important.  For  example,  how  a  character  string  key  may  be 
hashed  into  a  location,  how  a  scatter  table  and  overflow 
chaining  may  be  implemented,  or  how  a  command  line  can  be 
lexically  analyzed. 

Second,  it  is  intended  to  be  a  software  test  vehicle  for 
the  INFOPLEX  project.  INFOPLEX  is  a  proposed  design  for  a 
database  machine  which  incorporates  the  concept  of  hierarch¬ 
ical  decomposition.  <Madnick75,  Madnick78,  Hsu>.  As  part  of 
the  design  process,  a  software  prototype  was  needed  in  order 
to  further  explore  design  issues.  Since,  the  INFOPLEX  design 
incorporates  much  of  the  current  thinking  regarding  the 
desirable  design  of  a  DBMS,  it  was  felt  that  the  objective 
of  developing  a  sample  database  management  system  could  be 
met  by  implementing  a  small  scale  software  prototype  of  the 
INFOPLEX  functional  hierarchy.  This  would  allow  it  to  be 

used  as  a  software  test  vehicle  for  the  INFOPLEX  project  as 
well  as  for  a  teaching  tool. 

Why  is  INFOSAM  important?  At  the  outset  it  should  be 
noted  that  INFOSAM  was  primarily  an  engineering  effort, 
rather  than  a  research  effort.  The  conceptual  design  of 
INFOSAM  was  largely  derived  from  the  previous  work  of  Mad- 
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nick  <Madnick79>,  Hsu  <Hsu>,  Astrahan  <Astrahan>  and  Senko  1 

<Senko>.  Nonetheless,  there  are  several  aspects  of  INFOSAM 
which  are  worthy  of  mention. 

1.  It  is,  if  you  will,  a  version  0  of  the  INFOPLEX 
functional  hierarchy,  and  as  such  it  provides  an 
initial  confirmation  that  the  design  of  the  func¬ 
tional  hierarchy  is  basically  sound. 

2.  A  related  point  is  that  it  clearly  illustrates  how 
the  concept  of  heirarchical  decomposition  can  be 
applied,  in  practice,  to  the  design  and  implemen¬ 
tation  of  a  Database  Management  System. 

3.  The  mapping  technique  used  by  the  external  level  > 

to  process  relational  operations  is  potentially 
interesting  and  worth  pursuing.  While  the  concept 

is  probably  not  unique  to  INFOSAM,  it  is  probably 
one  of  the  few  actual  implementations  of  such  a 
technique . 

The  last  point  is  that  it  has  the  potential  to  be  a  useful 
teaching  tool.  While  it  is  somewhat  complex,  it  could  serve 
as  a  useful  case  study  because  it  illustrates  many  key  fea¬ 
tures  of  a  full  scale  DBMS. 

-  14  - 
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This  thesis  is  organized  as  follows:  In  chapter  2  we 
discuss  the  context  within  which  INFOSAM  was  developed  so 
that  the  reader  has  some  understanding  why  the  system  looks 
as  it  does.  In  particular,  we  will  discuss  the  relationship 
of  INFOSAM  to  the  INFOPLEX  project,  its  role  in  the  project, 
how  its  role  effected  its  design,  and  the  major  differences 
between  INFOSAM  and  INFOPLEX.  In  chapter  3  we  essentially 
walk  the  reader  through  the  logical  structure  of  INFOSAM. 
Here  we  discuss  each  level  in  INFOSAM  in  terms  of  its  func¬ 
tion,  data  model,  databases  and  modules.  The  objective  of 
this  chapter  is  to  not  only  give  the  reader  an  understanding 
of  the  logical  structure  of  the  system,  but  also  illustrate 
how  mapping  between  levels  can  be  implemented  and  hew  the 
concept  of  a  functional  hierarchy  has  been  implemented  in 
the  system.  The  last  chapter  summarizes  what  we  have  learned 
from  the  implementation  of  INFOSAM,  both  regarding  the  pro¬ 
posed  design  for  INFOPLEX  and  for  the  current  implementation 
of  INFOSAM.  In  addition,  there  are  2  appendices.  Appendix  1 
illustrates  a  sample  terminal  session,  and  Appendix  2  con¬ 
tains  the  complete  listings  for  the  system. 
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Chapter  2 

INFOSAM  AND  THE  INFOPLEX  PROJECT 

While  INFOSAM  is  a  relational  database  management  system 
in  its  own  right,  one  of  it's  primary  objectives  was  to 
serve  as  a  software  test  vehicle  for  the  INFOPLEX  project. 
That  is,  as  a  software  prototype  of  a  proposed  hardware  con¬ 
figuration.  Hence,  much  of  INFOSAM' s  design  is  taken  from 
the  proposed  INFOPLEX  design  for  a  DBMS.  In  this  chapter  we 
will  provide  the  reader  with  an  understanding  of  the  context 
within  which  INFOSAM  was  designed  and  implemented  so  that 
the  reader  has  some  understanding  why  the  system  looks  as  it 
does.  We  will  begin  by  introducing  the  concept  of  a  software 
test  vehicle,  what  it  is,  and  why  it  might  be  used.  We  will 
then  provide  a  very  quick  overview  of  the  INFOPLEX  concept, 
and  its  relationship  to  INFOSAM.  In  the  next  section,  we 
will  outline  design  considerations  that  result  from 
INFOSAM' s  relationship  with  INFOPLEX.  Finally,  we  will  high¬ 
light  a  few  areas  in  which  INFOSAM  is  different  from  INFO¬ 
PLEX  and  why.  This  last  section  is  aimed  primarily  at  those 
who  are  familar  with  INFOPLEX  and  want  a  quick  summary  of 
the  major  differences  between  the  two  systems. 
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2.1  THE  ROLE  OF  INFOSAM  AS  A  SOFTWARE  TEST  VEHICLE 


A  software  test  vehicle  is  best  viewed  as  a  software  pro¬ 
totype  of  a  system  that  may  eventually  be  implemented  all  or 
in  part  via  hardware.  The  software  test  vehicle  (STV)  is  a 
collection  of  procedures  which  are  organized  in  conceptually 
the  same  manner,  and  perform  the  same  functions,  as  their 
hardware  counterparts.  Hence,  the  logical  relationship  and 
function  of  the  modules  is  the  same  as  in  the  proposed  hard¬ 
ware  configuration.  In  addition,  the  algorithms  used  by  the 
software  modules  are  as  close  as  possible  to  those  proposed 
for  the  hardware  system. 

The  objective  of  a  STV  is  to  provide  the  system  designer 
with  a  better  understanding  of  the  proposed  system,  and  to 

allow  him  to  test  out  various  approaches  before  committing 
the  system  to  hardware.  Clearly,  it  is  desirable  to  tho¬ 
roughly  understand  a  system  prior  to  committing  it  to  hard¬ 
ware,  since  mistakes  at  that  stage  can  be  very  costly.  A 
designer  must  understand  not  only  the  relationship  of  func¬ 
tional  modules  to  each  other  but  also  the  optimal  internal 
structure  of  the  functional  modules.  The  STV  concept  aids 
the  designer  in  both  of  these  areas,  by  forcing  him  to 
implement  a  working  software  version  of  the  system.  Valuable 
lessons  can  be  gained  not  only  through  the  implementation 
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process,  but  also  through  a  detailed  performance  analysis  of 
the  resulting  system.  The  implementation  process  forces  the 
designer  to  come  to  grips  with  how  a  particular  function 
might  actually  be  implemented.  Often,  the  important  but  sub¬ 
tle  implications  of  a  design  decision  only  come  to  light 
during  the  implementation  process.  In  a  similar  fashion  a 
performance  analysis  of  the  resulting  system  may  bring  to 
light  issues  that  weren't  readily  apparent  until  the  system 
was  actually  tested.  Through  the  use  of  diagnostic  code 
within  the  modules,  detailed  statistics  may  be  collected  and 
analyzed.  Such  measures  may  range  from  the  number  of  times  a 
particular  module  is  called  to  service  a  request,  to  the 
amount  of  CPU  time  spent  performing  certain  tasks .  The 
designer  can  use  these  measures  to  identify  better  configu¬ 
rations,  or  more  efficient  algorithms. 

However,  an  STV  is  not  a  static  creation,  and  that  is  one 
of  its  great  strengths.  It  provides  the  designer  with  a 
relatively  flexible  means  of  testing  different  configura¬ 
tions  and  different  algorithms.  Through  the  use  of  strictly 
defined  uni-function  modules,  the  designer  can  alter  the 
configuration  or  modify  the  implementation  of  a  particular 
module  relatively  quickly  and  easily.  Thus,  many  different 
configurations  can  be  tested  and  evaluated.  This  in  turn 
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means  that  the  system  designer  has  little  excuse  for  locking 
himself  into  a  particular  design  without  good  reason. 

Note,  however,  that  the  STV  is  just  one  stage  in  the 
design  process.  It  is  not  a  replacement  for  other  stages  of 
the  process.  Techniques  such  as  Systematic  Design  Methodol¬ 
ogy  (SDM)  (see  <Andreu>,  <Huff>)  are  still  essential  for  the 
preliminary  design.  Indeed,  the  STV  should  be  based  on  the 
design  suggested  by  SDM.  Simulation  techniques  are  also 
important  tools  for  the  designer,  particularly  when  used  in 
conjunction  with  STV.  An  STV  can  not  be  used  to  predict  res¬ 
ponse  times  since  the  speed  of  the  STV  may  bear  no  relation 
to  the  speed  of  the  hardware  configuration.  For  much  the 
same  reason  a  STV  may  not  highlight  bottlenecks  in  the  sys¬ 
tem  to  the  same  degree  that  is  possible  through  simulation 
techniques.  Ideally,  a  simulation  model  would  be  used  both 
before  and  after  the  use  of  an  STV.  Initially,  it  can  be 
used  in  the  preliminary  design  process,  to  give  a  rough  idea 
of  the  system  performance.  During  and  after  the  STV  stage 
the  simulation  model  can  be  run  again  to  give  a  much  more 
accurate  picture  of  the  final  system  performance. 

As  the  reader  will  see  in  the  next  section,  INFOPLEX  is  a 
highly  complex  system,  still  very  much  in  the  design  phase. 
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Ultimately,  the  system  will  be  implemented  via  microproces¬ 
sors.  However,  for  many  of  the  reasons  discussed  above  there 
was  a  strong  desire  to  build  a  software  test  vehicle  to  aid 
the  design  process.  INFOSAM,  was  implemented,  in  part,  to 
answer  that  need.  Hence,  much  of  the  key  design  aspects  of 
INFOSAM  reflect  the  proposed  design  of  the  INFOPLEX  system. 
In  the  next  section,  we  will  review  the  important  aspects  of 
the  INFOPLEX  design. 

2.2  AN  INTRODUCTION  TO  INFOPLEX 

INFOPLEX  was  intially  proposed  by  Madnick  <Madnick  75>  as 
a  design  for  a  database  computer  which  incorporates  the  con¬ 
cept  of  a  hierarchical  decomposition  of  both  function  and 
hardware( <Madnick75>, <Madnick79>,  <Hsu>).  Hierarchical 
decomposition  is  a  design  and  implementation  strategy  whe¬ 
reby  a  complex  system  is  broken  down  into  simplier  subsys¬ 
tems,  which  are  tightly  defined,  and  hierarchically  related 
to  each  other.  That  is,  a  given  level,  or  subsystem  is 
implemented  making  use  of  the  services  provided  by  the  next 
lower  level  in  the  hierarchy.  This  approach  has  been  shown 
to  be  effective  in  several  software  systems.  (see 
<Madnick74>  <Andreu77>, <Madnick79> )  Indeed,  a  formal  design 
process,  called  Systematic  Design  Methodol- 
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ogy(<Andreu77>, <Huff>)  has  been  developed  around  this  con¬ 
cept. 

INFOPLEX  is  composed  of  2  hierarchically  related  subsys¬ 
tems,  each  of  which, in  turn,  is  hierarchically  decomposed 
into  levels.  This  is  shown  in  table  1  .  The  storage  hier¬ 
archy  is  responsible  for  all  storage  and  device  managment 
(See  <Madnick75>  and  <Madnick80>  for  a  detailed  discussion 
of  the  storage  hierarchy).  It  is  composed  of  a  physical 
hierarchy  of  levels,  where  each  level  is  composed  of  a  type 
of  storage  device  with  a  particular  cost/performance  tra¬ 
deoff.  Faster,  but  more  expensive  devices  are  at  the  top  of 
the  hierarchy,  whereas  cheaper,  but  slower,  devices  are  at 
the  bottom  of  the  hierarchy.  Information  is  moved  automati¬ 
cally  from  level  to  level  via  algorithms  implemented  through 
microprocessors  associated  with  each  level.  This  movement  of 
data  is  transparent  to  the  functional  heirarchy  which  sits 
on  top  of  the  storage  hierarchy.  As  far  as  the  functional 
hierarchy  is  concerned,  memory  consists  of  a  huge  virtual 
address  space. 

The  Functional  Hierarchy  is  responsible  fcr  all  DBMS 
functions  other  than  device  management.  It  relies  on  the 
concept  of  a  hierarchical  decomposition  based  on  both  func- 
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TABLE  1 


OVERVIEW  OF  INFOPLEX 


FUNCTIONAL  HIERARCHY 

*  Responsible  for  all  DBMS 
functions  except  device 
and  storage  management. 

*  Functional  hierarchy  of  modules 


STORAGE  HIERARCHY 

*  Responsible  for  storage  and 
device  management. 

*  Physical  hierarchy  of 
storage  devices. 


tion  and  view  of  the  data  (see  <Madnick79>  and  <Hsu>  for 
detailed  discussions  of  the  Functional  Hierarchy).  Levels  in 
the  hierarchy  are  identified  either  by  a  specific  function, 
such  as  data  validity  checking,  or  by  a  particular  view  of 
the  data,  such  as  the  stored  form  of  the  data,  versus  the 
external  or  user's  view  of  the  data.  This  approach  is  simi¬ 
lar  to  other  attempts  to  stratify  the  design  of  a  DBMS  based 
on  either  function  or  view  of  the  data  (see  <Ansi/Sparc> , 
<Astrahan>,  and  <Senko>).  However,  Madnick's  approach  is 
unique  in  that  each  level  in  the  hierarchy  is  implemented 
via  1  or  more  microprocessors,  which  in  turn  rely  on  ser¬ 
vices  provided  provided  by  modules  in  the  next  lower  level. 


The  decomposition  of  a  DBMS  as  proposed  by  Madnick  makes 
a  great  deal  of  sense  for  a  number  of  reasons.  For  one 
thing,  most  transactions  which  are  processed  by  a  DBMS  call 
for  a  common  sequence  of  tasks.  Hsu  writes  in  this  regard: 


For  example,  it  may  first  be  checked  by  a  security  con¬ 
trol  module;  then  it  is  passed  to  a  name-mapping  module 
which  determines  the  records  to  be  accessed;  and  then  it  is 
given  to  a  search  module  which  determines  the  address  of  the 
records;  finally  a  storage  module  is  invoked  to  qbtain  the 
record  from  memory.  These  stages  strongly  suggest  a  database 
system  structure  that  reflects  their  sequence.  Moreover,  the 
modules  which  support  the  earlier  stages  of  processing 
(e.g.,  security  control  and  name  mapping)  also  require  the 
services  provided  by  those  modules  that  support  the  later 
stages  of  processing  (e.g.,  searching  and  accessing.  <Hsu> 


Another  motivation  for  a  hierarchical  decomposition  based  on 
data  model  is  that  it  allows  the  user's  view  of  the  data  to 
be  independent  of  the  actual  implementation  by  the  lower 
levels.  This  means  a  user's  view  of  the  data  need  not  change 
if  the  implementation  changes.  In  addition,  multiple  exter¬ 
nal  views  of  the  database  (i.e.  relational,  hierarchical  or 
network)  can  be  supported  if  the  conceptual  data  model  is 
flexible  enough  to  support  these  multiple  views.  The  concep¬ 
tual  data  model  of  INFOPLEX  is  that  of  the  binary  network.  A 
binary  network  is  composed  of  Entities  and  Attributes,  where 
an  Entity  is  an  object  which  is  described  by  a  set  of  attri- 
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butes,  which  may  be  either  atomic  values,  or  entities  them¬ 
selves.  Madnick  has  proposed  that  such  a  structure  is  capa¬ 
ble,  given  semantic  information,  of  supporting  multiple 
views  of  the  data. <Madnick79> 

Finally,  another  motivation  for  such  a  structure  is  that 
by  its  very  design  a  functional  hierarchy  tends  to  minimize 
the  redundancy  of  functions  within  the  system.  This  in  turn 
may  increase  reliability  since  functions  are  isolated  within 
specific  modules  and  can  be  more  easily  tested  and  debugged 
<Parnas>.  Further,  if  an  error  occurs  the  problem  can  be 
isolated  to  a  single  module  rather  than  requiring  changes  to 
multiple  modules  all  of  which  employ  the  same  logic. 

In  summary,  INFOPLEX  is  a  proposed  hardware  configuration 

for  a  database  computer.  The  Functional  Hierarchy,  is  the 
subsystem  responsible  for  database  functions.  It  views 
itself  as  sitting  on  a  huge  virtual  address  space,  and  is 
not  concerned  with  device  management.  The  Functional  Hier¬ 
archy  is  designed  around  the  concept  of  a  functional  hier¬ 
archical  decomposition  of  a  DBMS.  The  system  is  decomposed 
into  levels  which  are  collections  of  modules  which  either 
perform  a  common,  but  level  specific  function,  or  share  a 
common  data  model.  In  addition,  a  level  maintains  its  own 
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level-specific  database  used  to  perform  its  function.  Each 
level  is  implemented  via  a  cluster  of  microprocessors.  The 
data  models  chosen  were  chosen  on  the  basis  of  supporting 
multiple  external  views  of  the  data  and  a  flexible  physical 
data  structure. 

INFOSAM  was  developed,  in  part,  to  be  a  software  test 
vehicle  for  the  functional  hierarchy.  In  the  next  section, 
we  will  discuss  the  implications  of  this  for  the  design  of 
INFOSAM. 

2.3  IMPLICATIONS  OF  INFOPLEX  FOR  THE  INFOSAM  DESIGN 

The  potential  role  of  INFOSAM  as  a  software  test  vehicle 
for  the  functional  hierarchy  subsystem  of  INFOPLEX  had  cer¬ 
tain  implications  for  its  logical  design  as  well  as  for 
it's  actual  implementation.  These  implications  are  outlined 
below. 

The  logical  design  of  INFOSAM  was  to  incorporate  the  con¬ 
cept  of  a  functional  hierarchy.  On  atleast  a  conceptual 
basis,  the  modules  of  the  system  were  to  be  combined  into 
levels.  Levels  were  to  be  identified  by  either  a  specific 
function  or  by  a  particular  data  model  and  level  specific 
databases.  Modules  in  one  level,  could  only  call  modules  in 


the  level  immediately  beneath  them.  Where  possible  the  lev¬ 
els  would  correspond  to  the  levels  identified  by  Hsu,  and 
would  incorporate  the  same  data  models  as  proposed  by 
Hsu. <Hsu> 

Since  the  functional  hierarchy' s  view  of  storage  was  that 
of  a  virtual  address  space,  and  it  was  not  concerned  with 
device  management,  it  was  decided  that  INFOSAM  could  be 
implemented  using  in-core  storage  only.  That  is,  INFOSAM 
was  not  required  to  access  information  from  external  dev¬ 
ices  . 

Where  possible  communication  between  modules  was  to  be 
done  via  bit  string  messages.  This  reflects  the  potential 
development  of  a  message  handling  facility  which  would  over¬ 
see  and  monitor  the  communication  between  modules  of  differ¬ 
ent  levels.  In  addition,  where  possible,  no  pointers  would 
be  passed  between  levels.  The  idea  being  that  only  the  low¬ 
ermost  levels  should  be  aware  of  the  physical  location  of 
the  data. 

In  order  to  facilitate  the  use  of  the  Software  Test  Vehi¬ 
cle,  as  well  as  to  be  consistent  with  the  concept  of  a  func¬ 
tional  hierarchy,  modules  were  to  be  strictly  defined  and 
unifunctional .  The  idea  was  that  it  should  be  easy  to  modify 
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or  completely  change  a  module  and  'plug'  it  into  the  system. 
This  also  meant  that  a  premium  was  to  be  placed  on  documen¬ 
tation  standards. 

- 

2.4  MAJOR  DESIGN  DIFFERENCES  BETWEEN  INFOSAM  AND  INFOPLEX 

There  are  several  major  design  differences  between 
INFOSAM  and  INFOPLEX.  In  most  cases,  the  differences 
reflect  limitations  present  in  INFOSAM  that  would  not  be 
present  in  a  full  implementation  of  INFOPLEX.  A  few  of  the 
most  important  differences  are  described  below.  As  mentioned 
earlier,  this  section  is  addressed  toward  these  who  are 
fairly  familiar  with  the  proposed  design  of  the  Functional 
Hierarchy. 

One  significant  difference  is  in  the  number  and  defini¬ 
tion  of  levels.  As  will  be  discussed  in  the  next  chapter, 
INFOSAM  is  composed  of  3  levels,  the  Internal  level,  the 
Nset  or  Conceptual  level,  and  the  External  level.  The  Inter¬ 
nal  level  represents  a  union  of  Hsu's  proposed  Unary  and 
Binary  levels.  The  rationale  for  combining  the  levels  was 
that  in  this  implementation  the  Binary  level  was  aware  of 
the  stored  structure  of  the  data,  i.e.  the  BEU,  and  it 
required  access  to  the  equivalent  of  the  unary  set  cata¬ 
logue.  As  a  result, it  wasn't  clear  that  the  levels  should  be 
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separated.  The  Nset  level  is  equivalent  to  Ksu's  N-ary 
level,  though  on  a  reduced  scale.  The  External  level  com¬ 
bines  the  View  translation  level,  the  View  Enforcement 
level,  and  the  Validity/Integrity  level.  The  rationale  for 
doing  so  was  that  only  very  primitive  view  enforcement  and 
validity  functions  were  implemented,  so  really  our  External 

level  represents  the  View  translation  level  with  some  view 
enforcement  and  data  validity  functions  embedded  in  it. 

A  second  major  difference  is  in  the  type  of  data  models 
supported  by  the  system,  in  particular,  by  the  External  and 
Nset  levels.  Only  a  single  external  view  is  supported,  that 
being  a  relational  view.  This  is  in  contrast  to  the  INFOPLEX 
concept  of  multiple  external  views.  A  relational  view  was 
chosen  for  several  reasons.  From  a  user's  standpoint  its 
conceptually  easy  to  understand,  it  supports  ad-hoc  queries, 
queries  can  be  expressed  in  a  simple  yet  powerful  query  lan¬ 
guage,  and  it  is  somewhat  non-procedural.  In  addition,  it 
has  the  advantage  that  the  user  does  not  need  to  know  how 
his  database  is  actually  implemented.  From  a  system  stand¬ 
point,  the  relational  data  model  is  the  easiest  of  the  3 
traditional  external  views  to  map  to  the  conceptual  data 
model  of  the  Nset  level. 


The  data  model  of  the  Nset  level  is  a  very  restricted 
form  of  the  binary  network  proposed  by  Hsu.  In  Hsu's  pro¬ 
posed  data  model,  an  entity  could  have  another  entity  as  one 
of  its  attributes,  and  this  would  be  implemented  as  a  binary 
association  between  instances  of  the  entities.  <Hsu>  This 
allows  her  data  model  to  be  'rich  in  semantics',  that  is,  to 
be  able  to  support  a  variety  of  external  data  models.  How¬ 
ever,  the  implementation  of  such  a  data  model  appears  to  be 
very  complex.  A  modified  binary  network  was  implemented  in 
INFOSAM,  in  which  entities  can  share  attributes,  but  an 
entity  can  not  explicitly  (i.e.  be  linked  via  a  binary  asso¬ 
ciation)  have  another  entity  as  an  attribute.  In  addition,  a 
given  define  or  insert  request  may  only  reference  1  entity 
set,  although  a  retrieval  request  may  involve  several  entity 
sets.  This  restriction  allows  the  Nset  level  to  be  much  less 
complex.  Since,  this  model  is  very  close  to  the  relational 
model,  it  is  fully  capable  of  supporting  a  relational  exter¬ 
nal  model.  While  the  define  and  insert  logic  would  have  to 
be  enhanced  a  great  deal  to  support  Hsu's  model,  the 
retrieval  logic  will  probably  require  relatively  few 
changes . 

The  points  discussed  above  represent  the  significant  con¬ 
ceptual  differences  between  INFOSAM  and  INFOPLEX.  There  are 
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a  few  less  significant  differences  which  are  worth  noting. 
For  one  thing,  the  distinction  between  levels  is  totally 
conceptual.  There  is  nothing  in  the  system  which  prevents  a 
module  from  calling  any  other  module  in  the  system.  However, 
as  currently  implemented.,  modules  in  a  given  level  only  call 
modules  in  the  level  logically  beneath  it.  Another  differ¬ 
ence  is  the  manner  in  which  binary  sets  are  implemented. 
INFOPLEX  supports  3  possible  methods,  pointer  chaining,  phy¬ 
sical  duplication,  and  physical  embedding.  INFOSAM  only  sup¬ 
ports  pointer  chaining.  This  restriction  was  made  primarily 
to  simplify  the  implementation.  INFOPLEX  also  makes  the  dis¬ 
tinction  between  associative  pointers  and  set  pointers,  and 
allocates  different  parts  of  the  basic  storage  unit  to  store 
each  type  of  pointer.  In  INFOSAM  they  share  a  common  area. 
Finally,  INFOPLEX  allows  an  element  in  a  unary  set,  to  be  in 
more  than  1  primary  set.  Since,  INFOSAM  does  nor  make  a 
distinction  between  unary  sets  and  primary  sets,  an  element 
can  only  be  in  1  primary  set,  though  it  can  be  in  several 
subsets . 

2.5  CONCLUDING  REMARKS 

While, INFOSAM  can  be  viewed  as  a  prototype  of  a  D3MS 
without  regard  to  the  INFOPLEX  project,  an  understanding  of 
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the  context  in  which  it  was  designed  is  important  to  under¬ 
stand  why  certain  design  choices  were  made.  This  chapter, 
hopefully,  has  given  the  reader  a  sense  of  the  context 
within  which  INFOSAM  was  designed  and  implemented.  With  this 
understanding  in  hand,  we  can  now  proceed  to  a  detailed 
overview  of  the  design  and  implementation  of  the  INFOSAM 
system. 


Chapter  3 

LOGICAL  OVERVIEW  OF  INFOSAM 


The  purpose  of  this  chapter  is  to  provide  the  reader  with 
an  understanding  of  the  logical  structure  of  INFOSAM.  As 
discussed  in  the  previous  chapter  INFOSAM  can  be  thought  of 
as  having  three  distinct  levels.  Each  level  has  it's  own 
data  model,  databases  and  collection  of  modules  which  are 
responsible  for  the  definition,  updating  and  retrieval  of 
data  items  within  the  context  of  the  level's  view  of  the 
data.  Our  discussion  of  the  logical  structure  of  INFOSAM 
will  center  around  a  discussion  of  the  separate  levels.  Thus 
for  each  level  we  will  discuss,  the  conceptual  data  model 
used  by  the  level,  how  the  data  model  is  implemented,  the 
major  databases  used  and  maintained  by  the  level,  and 
finally,  a  brief  overview  of  the  major  modules  which  com¬ 
prise  the  level.  In  general,  we  will  skim  over  the  implemen¬ 
tation  of  the  modules  unless  the  implementation  provides  a 
useful  insight  into  the  logical  structure  of  the  system.  The 
reader  who  is  interested  in  a  detailed  discussion  of  the 
implementation  is  urged  to  consult  the  documentation  and 
listing  at  the  end  of  this  report. 
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3. 


DESIGN  OVERVIEW  OF  INFOSAM 


While  the  design  of  INFOSAM  is  largely  based  on  design 
proposed  by  the  INFOPLEX  project,  it  should  be  noted  that  it 
also  makes  use  of  concepts  proposed  by  <Ansi/Sparc> , 
<Senko>,  and  <Astrahan>.  In  particular,  the  choice  of  3  lev¬ 
els  distinguished  by  data  model,  while  consistent  with  the 
INFOPLEX  design,  is  also  based  on  the  work  cited  above.  In 
addition,  the  conceptual  design  and  use  of  a  basic  storage 
element  to  build  complex  data  structures  via  the  elements 
and  links  between  elements  is  similar  to  the  strategy  pro¬ 
posed  by  <Senko> 

INFOSAM  incorporates  3  levels,  an  External  level  which 
supports  a  relational  view  of  the  database,  an  Internal 
level  which  is  responsible  for  actually  storing  and  access¬ 
ing  the  data,  and  a  Conceptual  level  which  acts  to  insulate 
the  External  level  from  the  Internal  level.  Each  level  has 
it's  own  data  model  or  view  of  the  data.  The  External  data 
model  is  that  of  the  Relation.  This  means  that  it  not  only 
supports  relational  operations  issued  by  a  user  but  it  views 
its  own  databases  as  relations  and  performs  relational  oper¬ 
ations  to  manipulate  the  data  in  its  databases.  The  External 
level  is  independent  of  the  logical  or  stored  structure  of 
the  data,  and  need  not  be  changed  if  the  Internal  structure 


of  the  data  changes.  The  Conceptual  level's  data  model  is 
that  of  the  Entity  set.  An  Entity  set  is  composed  of  a  col¬ 
lection  of  objects  or  entities  which  are  described  by  a  com¬ 
mon  set  of  attributes.  The  Conceptual  Level's  view  of  the 
database  is  as  it  is  logically  organized.  That  is,  it  is 
aware  of  the  information  contained  in  the  database,  and  the 
logical  relationship  of  among  Entities  within  the  database. 
However,  it  is  not  aware  of  the  physical  organization  of  the 
data,  nor  of  how  the  External  level  views  the  data.  As  with 
the  External  level,  the  Conceptual  level  views  it's  data¬ 
bases  within  the  context  of  its  data  model,  i.e.  as  being 
Entity  sets.  The  Internal  level's  data  model  consists  of 
Primitive  sets  and  Binary  sets.  A  Primitive  set  is  a  collec¬ 
tion  of  elements  which  share  some  common  property.  A  Binary 
set  is  a  collection  of  binary  associations  between  elements 
within  two  Primitive  sets.  The  Internal  level's  view  of  the 
database  is  as  the  database  is  actually  stored  and  repre¬ 
sented.  That  is,  it  is  aware  of  how  elements  with  Primitive 
sets  are  physically  stored,  and  how  the  associations  among 
elements  within  a  Primitive  set  or  a  Binary  set  are  physi¬ 
cally  represented.  However,  it  is  not  aware  of  how  higher 
levels  view  the  data. 
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Both  the  External  and  the  Conceptual  levels  implement 
their  data  models  via  calls  to  the  level  immediately  beneath 
them.  These  calls  reflect  the  conceptual  data  model  of  the 
level  being  called,  but  do  not  depend  on  how  that  data  model 
is  actually  implemented.  Hence,  a  given  level  need  only  be 
aware  of  the  data  model  of  the  level  immediately  beneath  it 
and  be  able  to  map  its  conceptual  data  model  to  it.  This 
provides  a  high  degree  of  data  independence  within  the 
sytem.  The  Internal  level  is  the  only  level  which  must  be 
aware  of  how  it's  conceptual  data  model  is  physically  repre¬ 
sented. 

Table  2  provides  a  schematic  view  of  INFOSAM.  As  can  be 
seen  from  the  table,  INFOSAM  is  composed  of  3  levels:  the 
External  level,  the  Nset  level,  and  the  Internal  level.  The 
Internal  level  is  further  decomposed  into  2  layers:  the 
Primitive  or  Pset  layer  and  the  Binary  or  Bset  level.  A 
level  is  distinguished  by  a)  a  level  specific  data  model,  b) 
level  specific  databases,  and  c)  modules  necessary  to  main¬ 
tain  it's  data  bases  and  implement  it's  data  model  (  albeit 
via  calls  to  modules  in  the  level  beneath  it).  The  Internal 
level  is  broken  down  into  2  layers  because  while  the  layers 
share  common  databases  and  routines  they  use  different  data 
models.  It  should  be  noted  that  this  decomposition  is  tran- 
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sparent  to  the  Nset  level,  which  only  sees  a  unified 
Internal  level.  In  keeping  with  the  concept  of  the  func¬ 
tional  hierarchy  modules  in  one  level  may  only  call  modules 
in  it's  own  level  or  the  level  immediately  beneath  it. 


TABLE  2 

Schematic  Overview  of  Infosam 


EXTERNAL  LEVEL 


|  NSET  LEVEL 


|  INTERNAL  LEVEL  I 

j  Bset  Layer  i 

I  I 

|  Primitive  Layer  | 


In  the  following  sections  we  will  discuss  each  level  in 
term's  of  its  data  model  and  it's  major  responsibilities. 
Once  we  have  presented  this  overview  we  will  go  back  and 
discuss  the  implementation  in  greater  detail. 
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3.2  THE  INTERNAL  LEVEL 


The  Internal  level  is  the  lowest  level  in  the  system.  It 
is  concerned  with  the  actual  storage,  and  retrieval  of  data 
items,  as  well  as  maintaining  associations  among  data  ele¬ 
ments  which  are  either  logically  similar  or  logically 
related,  and  being  able  to  retrieve  associated  data  ele¬ 
ments  given  a  definition  of  the  association.  The  Internal 
level  shields  the  Conceptual  level  from  needing  to  know  how 
data  items  are  stored  or  linked,  and  thus  makes  the  Concep¬ 
tual  level  somewhat  independent  of  the  actual  implementation 
of  the  Internal  level .  At  the  same  time  the  Internal  level 
provides  the  Conceptual  level  with  a  data  model  which  allows 
the  Conceptual  level  to  be  able  to  express  reasonably  com¬ 
plicated  data  structures. 

Table  3  provides  a  schematic  view  of  the  modules  and 
databases  of  the  Internal  level. 

The  Internal  level  is  composed  of  2  layers  which  are 
hierarchically  related,  the  Primitive  or  Pset  layer  and  the 
Binary  or  Bset  layer.  The  Primitive  layer  is  unaware  of  the 
Binary  level,  whereas  the  Binary  level  relies  heaviliy  on 
the  data  model  of1  the  Primitive  layer.  While  the  layers  have 
different  data  models,  they  share  common  databases  and  hence 
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CReATfP 


SEARCH 


FETCH 


do  not  warrant  being  distinguished  as  separate  levels.  Note, 
this  is  in  contrast  to  the  approach  taken  by  Hsu  <Hsu>,  in 
which  the  Unary  and  binary  levels  are  viewed  as  separate 
levels.  As  implemented  here,  both  the  Primitive  and  Binary 
layers  require  knowledge  of  the  stored  form  of  the  data 
since  linkage  information  is  stored  with  the  data  element. 
In  addition,  they  both  share  the  same  linkage  information 
area  in  the  basic  storage  unit.  Hence,  its  not  clear  how  the 
Binary  layer  could  be  isolated  from  the  stored  form  of  the 
data.  However,  in  order  to  simplify  our  discussion  of  the 
Internal  level  we  will  discuss  the  layers  separately. 

3.2.1  The  Primitive  layer 

The  conceptual  data  model  of  the  Primitive  layer  is  the 
Primitive  set.  A  Primitive  set  is  a  collection  of  elements 
which  share  some  common  property.  For  example,  a  Primitive 
set  could  be  \composed  of  a  collection  of  supplier's  names, 
the  common  property  being  that  the  data  elements  represent 
the  names  of  your  suppliers.  Note,  that  the  interpretation 
of  a  Primitive  set  is\  external  to  the  set.  That  is,  what  you 
view  as  a  set  of  supplier's  names  may  be  viewed  by  someone 
else  as  a  Primitive  set  comprised  of  8-byte  character 
strings.  A  Primitive  set  can  be  either  a  Primary  set,  or  a 
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subset.  By  a  subset  we  mean  that  it  is  a  subset  of  another 
Primitive  set.  For  example,  a  set  containing  the  names  of 
all  students  at  MIT  might  be  considered  a  Primitive  set  as 
well  as  a  Primary  set.  That  Primitive  set,  in  turn,  contains 
a  subset  which  represents  the  names  of  all  students  at  the 
MIT  Sloan  School  of  Management.  That  subset  is  also  a  Prim¬ 
itive  set  in  that  it's  elements  share  a  common  property.  A 
Primary  set  is  a  Primitive  set  which  is  not  a  subset  of 
another  Primitive  set.  Conceptually,  there  is  no  reason  why 
a  subset  could  not  also  contain  subsets.  However,  in  this 
implementation,  subsets  can  not  contain  subsets. 

The  purpose  of  the  Primitive  set  layer  is  to  accept  calls 
to  perform  actions  on  its  conceptual  data  model  (i.e.  define 
pset,  insert  pset,  retrieve  pset),  map  those  requests  to 
actions  on  the  phsical  representation  of  its  data  model,  and 
actually  perform  the  required  actions.  Unlike  the  other  lev¬ 
els,  it  is  also  responsible  for  implementing  the  physical 
representation  of  its  data  model.  In  the  following  section 
we  will  briefly  discuss  the  logic  of  the  Primitive  layer  and 
then  elaborate  on  the  layer's  databases  and  routines. 

All  stored  information  in  the  system  is  stored  in  based 
structures  called  Basic  Encoding  Units  (BEU).  A  BEU  consists 


of  a  pointer  array,  which  is  used  to  hold  linkage  informa¬ 
tion,  and  a  bit  string  data  area  which  is  used  to  hold  the 
actual  data.  A  Primitive  set  is  implemented  as  a  set  of  BEUs 
which  hold  the  actual  elements  of  the  Pset  and  an  additional 
BEU  which  contains  information  concerning  the  organization 
of  the  pset  (i.e.  how  elements  are  linked,  location  of  key 
field,etc.).  The  BEU  which  describes  the  Pset's  organiza¬ 
tion  is  also  part  of  a  Pset  called  PSET_CAT  which  is  a  Prim¬ 
itive  set  consisting  of  all  the  BEUs  which  describe  Psets  in 
the  system.  Hence,  that  BEU  is  referred  to  as  the  PSET_CAT 
catalogue  entry  for  the  Pset.  This  is  illustrated  in  Table 
4  .  Any  action  on  a  Pset  first  requires  the  retrieval  of  the 
PSET_CAT  catalogue  entry  in  order  to  know  know  how  the  Prim¬ 
itive  set  is  implemented.  The  only  exception  to  this  is  the 
define  action.  In  this  case  the  major  task  of  the  define 
module  is  to  create  the  PSET_CAT  entry  for  the  pset. 

Linkage  among  elements  in  a  Pset  is  accomplished  in  one 
of  three  ways:  (.1)  hashing  via  a  scatter  table  and  overflow 
chaining, (2)  as  a  B-tree,  or  (3)  via  simple  linear  chaining. 
Each  of  these  methods  are  illustrated  in  tables  5  -  7  If 
simple  linear  chaining  is  used,  a  pointer  slot  in  the 
p__array  of  the  Pset's  BEUs  is  reserved  to  be  used  for  Pset 
chaining.  In  addition,  a  pointer  slot  in  the  P_array  of  the 


41 


catalogue  BEU  is  reserved  to  point  to  the  last  element 
inserted  into  the  Pset.  When  an  element  is  inserted  into  the 
Pset  the  pointer  to  the  last  element  in  the  Pset  is  placed 
in  the  reserved  pointer  slot  of  the  BEU  which  contains  the 
newest  insertion  to  the  Pset,  and  the  pointer  slot  in  the 
catalogue  entry  is  updated  to  point  to  the  new  element.  On 
retrieval,  the  catalogue  entry  is  fetched  and  the  pointer 
chain  is  followed  until  the  desired  element  is  found  or 
until  the  pointer  slot  contains  a  null  value. 

B-tree  linkage  is  very  similar  except  that  2  pointer 
slots  are  reserved  to  be  used  for  Pset  chaining,  and  the 
pointer  slot  in  the  PSET_CAT  entry  for  the  Pset  points  to 

the  first  element  in  the  set.  When  an  element  is  to  be 
inserted  the  existing  B-tree  for  the  Pset  must  be  searched 
to  find  the  node  (i.e.  BEU)  to  which  the  new  BEU  should  be 
chained.  Chaining  is  accomplished  by  setting  the  appropriate 
pointer  slot  in  that  node  so  that  it  points  to  the  new  ele¬ 
ment  . 

If  hashing  is  to  be  used,  a  based  structure  is  created  at 
Pset  definition  time  to  act  as  a  scatrer  table  for  the  Pset, 
and  a  pointer  slot  in  the  catalogue  BEU  for  the  Pset  is 
updated  to  point  to  the  scatter  table.  In  addition,  a  poin- 
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TABLE  6 


TABLE  7 


Example  of  Hashing  via  Scatter  Table  and  Overflow  Chaining 


PASlS 


ter  slot  is  reserved  in  the  Pset's  BEUs  to  be  used  for  over¬ 


flow  chaining.  When  an  element  is  to  be  inserted  the  cata¬ 
logue  entry  for  the  Pset  is  first  fetched  and  the  location 
of  the  scatter  table  is  found.  The  key  in  the  element  to  be 
inserted  is  then  hashed  via  a  system  hash  function  and  the 
corresponding  element  in  the  scatter  table  is  checked  to  see 
whether  it  is  null.  If  it  isn't,  then  the  element  in  the 
scatter  table  is  updated  to  point  to  the  new  BEU  in  the 
Pset.  Otherwise,  the  pointer  slot  in  the  new  BEU  which  was 
reserved  for  overflow  chaining  is  updated  to  point  to  the 
element  specified  in  the  scatter  table,  and  the  element  in 
the  scatter  table  is  updated  to  point  to  the  new  BEU.  On 
retrieval,  the  catalogue  entry  is  fetched  and  the  location 
of  the  scatter  table  is  found.  The  key  is  then  hashed  and 
the  corresponding  location  in  the  scatter  table  is  checked. 
If  it  isn't  null,  then  the  contents  of  the  BEU  pointed  to  by 
the  entry  in  the  scatter  table  is  checked  to  see  if  it 
matchs  the  key.  If  it  doesn't  then  the  overflow  chain  is 
followed  until  either  the  desired  element  is  found  or  a  null 
value  is  found  in  the  pointer  slot  reserved  for  overflow 
chaining. 

The  implementation  of  the  Pset  layer  involves  3  major 
databases  and  4  major  modules.  In  the  next  section  we  will 
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briefly  outline  the  structure  of  the  databases  and  the  logic 
of  the  modules. 


3.2.2  Databases  of  the  Primitive  Layer 

The  Primitive  layer  makes  use  of  3  databases :( 1 )  the  BEU,(2) 
the  PSET_CAT,and  (3)  the  Index  databases.  These  will  be 
outlined  below. 

3 . 2 . 2 . 1  BEU 

All  stored  information  in  the  system  is  stored  in  based 
structures  called  Basic  Encoding  Units.  A  BEU  contains  the 
data  value  as  well  as  linkage  information.  Formally,  a  BEU 
is  declared  as  follows: 

1  BEU  BASED (ID), 

2  LENGTH  FIXED  BIN(15), 

2  P_ARRAY (16)  POINTER, 

2  INFO  BIT(320) ; 

where  the  elements  are  interpreted  as  follows: 

ID  -  Each  allocation  of  a  BEU  has  a  unique  ID,  by  which 
it  can  be  referenced.  This  ID  corresponds  to  the  pointer 
value  on  which  the  structure  is  based  at  the  time  the  struc¬ 
ture  is  allocated.  A  BEU  can  be  accessed  by  overlaying  a  BEU 
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structure  on  a  location  in  memory  pointed  to  by  the  ID. 
Note,  however,  that  the  ID  is  not  stored  in  the  BEU,  but 
serves  as  an  External  reference  to  it. 

LENGTH  -  The  length  field  is  used  to  specify  the  length 
of  actual  data  in  INFO.  Since  Info  is  a  fixed  length  string, 
it  may  contain  a  a  data  element  whose  length  is  less  than 
that  of  Info.  Hence,  the  need  to  specify  the  length.  Note, 
in  a  later  implementation  the  length  of  Info  would  probably 
be  variable  and  LENGTH  in  that  case  would  be  the  length  of 
the  Info  field. 

P_ARRAY  -  This  is  a  pointer  array  which  is  used  to  con¬ 
tain  linkage  information.  Both  the  Pset  and  Bset  layers  use 
the  pointer  slots  in  P_ARRAY  to  implement  their  respective 
linkages.  Typically,  at  set  definition  time  (be  it  a  Pset  or 
a  Bset)  the  definition  module  reserves  a  pointer  slot  to  be 
used  to  implement  the  linkage  being  defined.  By  reserve,  we 
mean  that  a  flag  is  set  in  the  PSET_CAT  entry  for  the  Pset 
indicating  that  that  pointer  slot  in  BEUs  containing  ele¬ 
ments  of  the  Pset  is  reserved  for  a  specific  purpose.  In 
addition,  the  PSET_CAT  or  BSET_CAT  entry  will  contain  infor¬ 
mation  on  how  the  contents  of  the  pointer  slot  are  to  be 
interpreted  .  The  P_ARRAY  is  of  fixed  size  to  simplify 
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implementation.  However,  this  does  limit  the  number  of  link¬ 
ages  that  can  be  implemented. 

INFO  -  This  is  a  fixed  length  bit  string  which  holds  the 
data  to  be  stored.  A  bit  string  representation  was  chosen  to 
make  the  BEU  generalizable  and  to  allow  common  routines  to 
be  used  regardless  of  the  type  of  information  contained  in 
the  BEU.  It  is  fixed  length  to  simplify  implementation. 

The  BEU  is  a  powerful  structure  that  allows  a  single  data 
element  to  take  on  more  than  one  meaning  through  it's  link¬ 
ages.  In  addition,  it  supports  the  creation  of  complex  and 
varied  data  structures,  and  once  again  a  single  instance  of 
a  data  element  may  be  a  part  of  different  data  structures. 
It  is  not  without  it's  drawbacks,  however.  In  particular,  a 
single  BEU,  as  implemented  in  this  system,  requires  over  100 
bytes  regardless  of  the  amount  of  information  it  contains. 
If,  however,  the  size  of  the  pointer  array  and  the  data  area 
was  determined  dynamically,  then  this  problem  would  be 
somewhat  reduced. 

3. 2. 2. 2  PSET_CAT 

Every  Primitive  set  defined  by  the  system  contains  a  BEU 
which  describes  the  implementation  of  the  Pset,  i.e.  how  the 


50 


1 


BEUs  which  contain  the  elements  of  the  Pset  are  linked  and 
how  they  are  to  be  interpreted.  This  BEU  is  in  turn  a  member 
of  a  Primitive  set  called  PSET_CAT  which  is  the  set  of  all 
BEUs  used  to  describe  the  implementation  of  Psets  in  the 
system.  That  set  is  in  fact  a  catalogue  of  all  the  Primitive 
sets  in  the  system.  The  entire  BEU  is  used  as  the  catalogue 
entry  by  overlaying  the  following  structure  on  any  BEU  which 
contains  a  catalog  entry. 

1  CAT_ENTRY  BASED (P), 

2  LENGTH  FIXED  BIN(15), 

2  P_ARRAY (16)  POINTER, 

2  DATA 

3  NAME  BIT( 64) , 

( 3  SP_MAP , 

3  AP_MAP )  BIT( 16) , 

3  NUMFREE  BIT(8), 

3  SEARCH_INFO 
(4  L__TYPE , 

4  LJP0S1, 

4  LJP0S2, 

4  KEY_POS, 

4  KEY_LEN  )  BIT(8), 

3  SET  TYPE 


(4  SUBSET, 


4  SUBSET_ID , 

4  P_CHAIN, 

4  S_CHAIN)  BIT(8) ; 

where  the  elements  of  the  catalogue  are  interpreted  as  fol¬ 
lows  (Note,  the  reader  may  find  it  useful  to  refer  to  tables 
5-7  during  this  discussion  for  examples  of  how  the  fields 
of  the  catalogue  are  in  fact  used. ) : 

LENGTH  -  Used  to  specify  the  length,  in  bits,  of  the 
catalogue  entry. 

P_ARRAY  -  Contains  linkage  information  used  to  link  the 
catalogue  entry  to  the  elements  in  the  pset  (either  directly 
or  via  a  pointer  to  a  scatter  table),  or  to  link  the  cata¬ 
logue  entry  to  other  related  catalogue  entries  (for  example, 
all  catalogue  entries  for  a  Primary  set  and  any  subsets  of 
it  are  chained  together) .  The  contents  of  the  pointer  slots 
within  ?_ARRAY  are  interpreted  depending  on  the  contents  of 
Search_Info . 

NAME  -  The  name  of  the  Pset  being  described. 

SP_MAP  &  AP_MAP  -  These  bit  string?  are  used  as  maps  to 
indicate  the  status  of  the  pointer  slots  in  the  P_ARRAYs  of 
the  BEUs  within  the  Pset.  Each  map  has  16  bits  correspond- 
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ing  to  the  16  pointer  slots  in  a  P_array.  A  ' l'b  indicates 
that  the  pointer  slot  is  available  for  use,  whereas  a  'O'b 
indicates  that  the  pointer  slot  has  been  reserved.  When  the 
Pset  definition  module  needs  to  reserve  a  pointer  slot  in 
the  BEUs  it  calls  a  routine  which  finds  the  first  'l'b  in 
the  SP_MAP ,  sets  it  and  the  corresponding  bit  in  AP_MAP  to 
'O'b  and  returns  the  position  of  the  bit  to  the  define  rout¬ 
ine.  This  represents  the  position  of  the  pointer  slot  being 
reserved.  A  similar  procedure  is  used  to  reserve  pointer 
slots  in  order  to  implement  linkages  in  BSETs,  except  that 
the  AP_MAP  is  searched  first.  The  reason  2  maps  are  used 
rather  than  1  is  that  certain  pointer  slots  are  not  availa¬ 
ble  for  Pset  linkage,  but  are  available  for  Bset  linkages. 
For  example,  pointer  slot  1  is  used  for  overflow  chaining  in 
the  PSET_CAT  Pset  and  is  unavailable  for  other  Pset  link¬ 
ages,  but  it  is  available  for  Bset  linkages.  This  non-symme¬ 
try  results  from  the  fact  that  the  position  of  the  pointer 
slots  linking  the  PSET_CAT  entries  to  their  elements  is  the 
same  as  the  position  of  the  pointer  slots  linking  the  ele¬ 
ments  to  each  other.  Since  pointer  slot  1  is  already  allo¬ 
cated  to  overflow  chaining  within  the  PSET_CAT  Pset,  it  can 
not  be  used  to  chain  catalogue  entries  to  their  elements. 
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NUMFREE  -  number  of  available  pointer  slots  left  in  BEUs 
of  Pset. 

L_TYPE  -  Specifies  the  access  method  used  to  locate  ele¬ 
ments  within  the  Pset.  This  can  be  either  Hashed,  B_tree  or 
linear  chaining. 

L_P0S1  -  Specifies  pointer  slot  used  to  implement  the 
Pset  linkage  among  BEUs  which  contain  elements  of  the  Pset. 
Exact  meaning  depends  on  the  type  of  linkage  implemented.  If 
hashed,  then  refers  to  pointer  slot  in  PSET_CAT  entry  which 
points  to  the  scatter  table.  If  B_tree,  then  refers  to  the 
pointer  slot  in  the  BEUs  of  the  set  used  to  chain  right  des¬ 
cendants  of  the  B_tree.  If  linear  used,  L_P0S1  not  used. 

L_POS2  -  also  used  to  specify  pointer  slots  used  for  Pset 
linkages.  Exact  meaning  also  depends  on  type  of  linkage 
implemented.  If  Hashed,  then  it  is  used  to  specify  pointer 
slot  used  for  overflow  chaining.  If  B_tree,  then  it  is  used 
for  a  dual  purpose.  First,  it  specifies  the  pointer  slot  in 
the  PSET_CAT  entry  used  to  point  to  the  first  element  in  the 
Pset.  Second,  the  same  pointer  slot  is  used  to  chain  left 
descendants  among  BEUs  of  the  Pset.  Finally,  if  Linear,  then 
it  specifies  the  pointer  slot  used  for  chaining  the 
PSET_CAT  entry  to  the  last  BEU  in  the  set  as  well  as  for 
chaining  BEUs  of  the  Pset  together. 


KEY_POS  -  specifies  starting  location  of  the  key  within 
the  INFO  field  of  the  BEUs  containing  the  data  elements. 

KEY_LEN  -  specifies  length  of  the  key  within  the  INFO 
field. 

SUBSET  -  flag  to  indicate  if  this  Pset  is  a  Primary  set 
or  a  subset. 

SUBSET_ID  -  If  Pset  is  a  subset,  then  this  element  indi¬ 
cates  the  pointer  slot  used  for  chaining  elements  of  the 
subset  together.  As  currently  implemented,  subset  linkages 
are  all  implemented  via  linear  chaining.  Note,  if  subsets 
are  exclusive,  then  subsets  can  share  a  common  subset_id. 

P_CHAIN  -  If  Pset  is  a  subset,  then  this  element  speci¬ 
fies  the  pointer  slot  in  the  PSET_CAT  entry  used  to  point  to 

the  Primary  Pset  PSET_CAT  entry.  This  information  is 
required  to  implement  insertions  and  deletions  correctly 
within  both  the  Primary  set  and  it's  subsets. 

S_CHAIN  -  If  Pset  is  a  subset,  then  this  element  is  used 
to  specify  the  pointer  slot  in  the  ?SET_CAT  used  to  chain 
catalogue  entries  for  all  subsets  within  a  given  Primary 
set.  Simple  linear  chaining  is  used. 
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3 . 2 . 2 . 3  INDEX 


As  discussed  earlier,  hashing  is  implemented  via  a  scatter 
table  and  overflow  chaining.  When  the  link  type  is  specified 
as  hashed,  the  Pset  definition  module  allocates  the  follwo- 
ing  structure  to  act  as  a  scatter  table  for  the  Pset: 

1  INDEX  BASED ( INDEX_PTR) , 

2  NAME_ENTRY  BIT (64), 

2  TEST_LEN  FIXED  BIN(IS), 

2  PTR_TO_ENTRY ( 50 )  POINTER; 

Where  the  elements  are  interpreted  as  follows: 

INDEX_PTR  -  specifies  the  pointer  value  on  which  this 
structure  is  based.  Once  allocated  the  value  of  INDEX_PTR  is 
placed  into  the  L_POSl  pointer  slot  in  the  catalogue  entry 
for  the  Pset. 

NAME_ENTRY  -  indicates  the  name  of  the  Pset  for  which 
this  is  a  scatter  table.  Note,  this  field  serves  no  real 
purpose  and  could  be  eliminated  in  a  later  implementation. 

TEST__LEN  -  specifies  the  length  in  bits  of  the  key  field 
in  the  BEUs  of  the  pset  to  be  used  in  determining  the  hash 
value . 
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PTR_TO_ENTRY  -  This  is  a  pointer  array  which  acts  as  a 
scatter  table  for  the  Pset.  An  element  of  this  pointer  array 
is  null  or  points  either  to  the  first  element  whose  key 
hashed  to  that  location,  or  to  the  beginning  of  an  overflow 
chain  of  BEUs  which  hashed  to  that  same  location.  For  effi¬ 
ciency  reasons,  elements  are  inserted  at  the  beginning  of 
the  overflow  chain  rather  than  at  the  end.  Hence,  the  begin¬ 
ning  of  the  overflow  chain  is,  in  fact,  the  last  element  to 
be  added  to  that  overflow  chain. 

3. 2. 2. 4  Temporary  Databases  Built  by  Primitive  Layer 

There  are  two  other  databases  of  significance  which  the 
Primitive  Layer  builds  in  order  to  return  values  to  higher 
layers  or  levels.  These  databases  are  temporary  stacks  built 
by  the  Primitive  layer  and  destroyed  by  the  upper  levels 
once  they  have  examined  the  contents  of  stack.  The  first  of 
these  databases  is  called  IDS1,  and  it  is  used  to  return  the 
IDs  of  elements  found  by  the  SEARCH  module.  It  is  declared 
as  follows: 

IDS1  POINTER  EXTERNAL  CONTROLLED; 

The  second  cf  these  databases  is  called  INFO_ND,  and  it  is 
used  to  return  the  data  portion  of  BEUs  within  a  Pset.  It  is 
created  by  the  FETCH  module.  Its  formal  declaration  is  as 


follows: 


INFO_ND  BIT (320)  EXTERNAL  CONTROLLED; 

A  stack  structure  was  chosen  because  of  the  dynamic  nature 
of  the  number  items  that  might  be  returned,  and  because 
implementation  via  the  controlled  attribute  makes  management 
of  the  databases  fairly  simple. 

3.2.3  The  Modules  of  the  Primitive  Layer 

The  Primitive  layer  consists  of  4  major  modules,  and  5 
support  modules.  These  modules  are  responsible  for  the  phy¬ 
sical  implementation  of  the  Pset  data  model.  In  this  section 
we  will  briefly  outline  the  purpose  of  each  module,  and 
where  appropriate  discuss  the  logical  structure  of  the 
modules.  The  reader  is  urged  to  consult  the  documentation  in 
Appendix  1  for  a  detailed  discussion  of  the  Internal  struc¬ 
ture  of  the  modules. 

3.2.3. 1  DEFINEP 

This  module  is  responsible  for  creating  a  PSET_CAT  cata¬ 
log  entry  for  each  Primary  set  and  Subset  defined  in  the 
system.  In  addition,  it  is  responsible  for  reserving  pointer 
slots  to  be  used  for  Pset  linkages,  as  well  as  creating  sup¬ 
port  structures  if  necessary  (i.e.  INDEX  if  the  Pset  is  to 
be  hashed).  In  order  to  define  a  Pset,  DEFINEP  requires  par- 


ameters  which  specify  the  name  of  the  Pset,  the  desired 
access  or  linkage  method,  the  position  and  length  of  the 
key,  and  if  it  is  a  subset  of  a  Primary  set  it  needs  to  know 
the  name  of  the  Primary  set  and  the  pointer  slot  to  be  used 
for  subset  linkage.  The  logic  of  DEFINEP  is  fairly  simple. 
If  this  is  the  first  Pset  to  have  been  defined,  the  INIT_P 
module  is  called  which  defines  the  PSET_CAT  Pset  and  inserts 
a  catalogue  entry  into  the  Pset  which  describes  the  organi¬ 
zation  of  the  PSET_CAT.  Otherwise,  a  temporary  structure  is 

allocated  to  serve  as  a  template  for  the  new  catalogue 
entry.  If  the  Pset  to  be  defined  is  a  Primary  set,  then  this 
template  is  simply  a  copy  of  the  PSET_CAT  entry  describing 
the  PSET_CAT  Pset.  Otherwise,  the  template  is  a  copy  of  the 
PSET_CAT  entry  for  the  Primary  set  for  which  this  is  a  sub¬ 
set.  In  this  manner  the  Subset  organization  is  made  to 
reflect  the  organization  of  the  Primary  set.  The  module  then 
proceeds  to  build  the  catalogue  entry  to  reflect  the  parame¬ 
ters  passed  to  it.  If  pointer  slots  need  be  reserved,  then 
the  MAPSET  module  is  called  to  analyze  the  appropriate  map 
in  the  catalogue  entry,  find  the  first  available  pointer 
slot,  and  return  that  value  as  well  as  update  the  maps. 
Once  the  catalogue  entry  is  built,  the  Data  portion  of  the 
catalogue  entry  is  passed  to  CREATEP  which  is  responsible 
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for  actually  creating  the  BEU  which  will  contain  the  cata¬ 
logue  entry,  and  for  inserting  that  BEU  into  the  PSET_CAT 
Pset.  The  final  task  is  to  update  the  pointer  slots  of  the 
newly  created  BEU.  If  the  link  type  is  hashed,  then  the 
CREATE_I  module  is  called  to  create  a  scatter  table  for  the 
Pset,  and  a  pointer  to  that  scatter  table  is  placed  into  the 
appropriate  pointer  slot  in  the  catalogue  entry.  If  the  Pset 
is  a  subset,  then  it  is  also  necessary  to  chain  the  subset 
definition  to  both  the  Primary  set  definition  and  any  other 
subset  definitions  for  that  Primary  set.  In  addition,  the 
SP_MAP  and  AP_MAPs  of  the  Primary  set  must  be  updated  to 
reflect  any  additional  pointer  slots  which  are  no  longer 
available  for  use. 

3 . 2 . 3 . 2  CREATEP 

This  module  is  responsible  for  inserting  an  element  into 
a  previously  defined  Pset,  given  the  name  of  the  Pset  and  a 
bit  string  representation  of  the  data.  In  order  to  accom¬ 
plish  this,  this  module  must  perform  several  tasks.  First, 
it  must  retrieve  the  PSET_CAT  entry  for  the  Pset.  This  is 
done  via  a  call  to  the  SEARCH  module,  passing  it  PSET_CAT  as 
the  Pset  to  search  and  the  name  of  the  Pset  as  the  key  to 
search  on.  The  next  task  is  to  create  a  BEU  which  contains 
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the  bit  string  representation  of  the  data.  This  is  accom¬ 
plished  via  a  call  to  the  CREATE_E  module  which  actually 
creates  a  BEU  and  inserts  the  data  into  the  newly  created 
BEU.  The  final  task  is  to  insert  the  BEU  into  the  Pset  in 
accordance  with  the  link  type  specified  in  the  PSET_CAT 
entry  for  the  Pset.  This  is  done  via  a  call  to  the  CHAIN 
module  which  inserts  the  BEU  into  the  Pset,  taking  into 
account  the  organization  of  the  Pset,  and  the  contents  of 
the  BEU  to  be  inserted.  If  the  Pset  is  a  subset,  then  CHAIN 
is  called  a  second  time  to  insert  the  BEU  into  the  Primary 
set. 

3 . 2 . 3 . 3  SEARCH 

This  module  is  responsible  for  retrieving  the  IDs  of  one 
or  more  elements  in  a  Pset  given  the  name  of  the  Pset,  the 
retrieval  mode  and  a  key  to  search  on  if  necessary.  The 
SEARCH  module  supports  3  modes,  1)  First  element  in  set 
which  matches  key,  2)  All  elements  in  set  which  match  key, 
and  3)  All  elements  in  set.  It  returns  a  stack  which  con¬ 
tains  the  IDs  found.  The  SEARCH  module  is,  in  fact,  composed 
of  6  specialized  Internal  search  routines  which  are  called 
depending  on  the  Pset  organization  and  the  retrieval  mode. 
The  logic  of  the  SEARCH  module  is  as  follows.  The  first  task 


is  to  fetch  the  PSET_CAT  entry  for  the  Pset.  This  is  done 
by  first  retrieving  the  PSET_CAT  entry  for  the  PSET_CAT 
Pset,  and  then  by  calling  the  appropriate  search  routine 
given  the  organization  of  the  PSET_CAT  specified  in  it's 
catalogue  entry  and  the  name  of  the  Pset.  If  the  mode  is 
either  (1)  or  (2)  then  the  appropriate  search  routine  is 
called  (i.e.  L_SE ARCH ,  B_SEARCH,  or  H_ SEARCH) .  L_ SEARCH  is 
a  simple  linear  search  which  returns  the  ID  of  the  first 
element  which  contains  a  match  with  the  key.  It,  like  all  of 
the  search  modules,  relies  on  the  PSET_CAT  entry  for  the 
Pset  for  information  concerning  which  pointer  slots  are  used 
for  chaining,  how  the  contents  of  those  pointer  slots  are  to 
be  interpreted,  and  the  position  and  length  of  the  key. 
B_SEARCH  performs  a  Binary  search  of  the  B_tree  pointed  to 
by  the  PSET_CAT  entry  for  the  Pset,  and  returns  the  ID  of 
the  first  element  in  the  Pset  which  contains  a  match  with 
the  key,  or  a  null  value  if  not  found.  H_SEARCH  performs  a 
hash  search,  using  the  scatter  table  pointed  to  by  the 
PSET_CAT  entry  for  the  Pset,  and  the  pointer  slot  designated 
in  the  catalogue  entry  to  be  used  for  overflow  chaining.  It 
uses  the  system  HASH  function  to  hash  the  key  into  the  scat¬ 
ter  table.  If  the  corresponding  entry  in  the  table  is  not 
null,  then  it  checks  the  contents  of  the  BEU  pointed  to  by 
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that  entry  to  the  key.  If  they  are  equal  it  returns  the  ID 

of  that  BEU.  Otherwise,  it  performs  a  linear  search  of  the 
overflow  chain  until  it  either  finds  a  match  or  a  null 
pointer  slot. 

If  a  match  is  found  and  the  retrieval  mode  is  (1)  then 
the  ID  found  is  placed  on  the  top  of  the  stack  and  SEARCH 
returns.  If  a  match  is  found  but  the  mode  is  (2)  then  a 
linear  search  is  used  to  retrieve  any  additional  elements. 
If  the  link  type  is  Hashed,  then  only  the  remainder  of  the 
overflow  chain  need  be  searched.  If  the  link  type  is  a 
B_tree,  then  only  the  right  descendants  need  be  searched 
until  a  match  isn't  found.  This  is  because  elements  having 
the  same  key  are  linked  via  the  right  descendent  pointer 
slot  and  are,  hence,  chained  together.  However,  if  the  link 
type  is  Linear  then  an  exhaustive  search  of  the  remainder  of 
the  Pset  is  necessary. 

If  the  retrieval  mode  is  (3),  that  is,  that  all  elements 
in  the  set  be  fetched  then  one  of  3  routines  is  called.  If 
the  link  type  is  Linear  then  LINEAR_L  is  called  which  ret¬ 
rieves  all  the  IDs  in  the  set  by  simply  following  the  poin¬ 
ter  chain  pointed  to  by  the  ?SET_CAT  entry  for  the  Pset.  If 
the  link  type  is  B_tree  then  LINEAR_B  is  called  which  per- 
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forms  an  inorder  traversal  of  the  B-tree  pointed  to  by  the 

PSET_CAT  entry.  Finally,  if  the  link  type  is  Hashed  then 

LINEAR_H  is  called.  This  routine  goes  through  the  scatter 

table  pointed  to  by  the  PSET_CAT  entry  for  the  Pset  and 

returns  all  the  IDs  which  are  found  either  in  the  scatter 

0 

table  or  in  the  associated  overflow  chains.  In  any  event, 
the  IDs  found  are  placed  on  a  stack  and  SEARCH  returns. 

3 . 2 . 3 . 4  FETCH 

This  module  is  responsible  for  fetching  the  contents  of 
one  or  more  elements  within  a  Pset,  given  the  name  of  the 
Pset,  the  retrieval  mode,  and  a  key  if  needed.  The  retrieval 
modes  are  identical  to  those  of  SEARCH.  The  FETCH  module 
returns  a  temporary  database  called  INFO_ND  which  contains 
the  data  portions  of  the  elements  fetched  (See  description 
of  INFO_ND  in  database  section).  Conceptually  FETCH  is  very 
simple,  because  it  relies  on  the  SEARCH  module  to  retrieve 
the  IDs  of  the  desired  elements.  The  first  thing  FETCH  does 
is  call  SEARCH,  passing  it  the  name  of  the  Pset,  retrieval 
mode,  and  key  value.  SEARCH  returns  a  stack  of  pointers 
(i.e.  in  the  temporary  database  IDS1'  which  point  to  the 
BEUs  containing  the  desired  elements.  FETCH  then  takes  the 
top  of  the  stack,  overlays  a  3EU  template  on  the  memory 
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location  specified  by  the  ID  on  the  top  of  the  stack, 
extracts  the  data  portion  of  the  BEU,  and  places  it  on  the 
top  of  the  INFO_ND  stack.  It  then  pops  the  IDS1  stack  and 
continues  until  the  stack  is  empty. 

3 . 2 . 3 . 5  CREATE_E 

This  module  is  responsible  for  creating  a  BEU  given  a  bit 
string  representation  of  a  data  value  and  the  length  of  that 
string.  It  returns  a  pointer  to  the  newly  created  BEU  which 
serves  as  the  BEU's  ID.  Basically,  the  module  allocates  a 
BEU,  initializes  the  P_array  to  contain  null  values,  inserts 
the  bit  string  into  the  data  portion  of  the  BEU,  and  sets 
the  length  field  accordingly.  It  then  returns  the  pointer 
which  points  to  this  allocation  of  the  BEU. 

3. 2. 3. 6  CREATE_ I 

This  module  is  responsible  for  creating  an  allocation  of 
the  INDEX  database  to  be  used  as  a  scatter  table  for  a  given 
Pset.  It  returns  the  pointer  to  this  allocation  of  INDEX.  It 
requires  the  name  of  the  Pset  and  the  length  of  the  key  to 
be  hashed.  The  procedure  is  straightforward.  It  allocates  a 
copy  of  INDEX,  initializes  the  pointer  array  to  null, 
inserts  the  name  of  the  Pset  and  the  length  accordingly, 
and  returns  the  pointer  to  this  allocation  of  INDEX. 
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3 . 2 . 3 . 7  HASH 


This  function  is  used  to  hash  key  values,  specified  as 
bit  strings,  into  the  scatter  tables  used  to  link  the  Psets. 
It  requires  the  key  value  and  the  length,  in  bytes,  of  the 
key.  The  hashing  function  is  as  follows:  It  takes  the  key,  2 
bytes  at  a  time,  treats  it  as  an  unsigned  integer  and  adds 
it  to  a  running  total  for  the  key.  Once  the  key  has  been 
converted  in  this  fashion,  it  is  divided  by  the  size  of  the 
scatter  table  +  1,  and  the  remainder  represents  the  hashed 
value.  Since  HASH  is  implemented  as  a  function,  it  takes  on 
the  value  of  the  hashed  value. 

3. 2. 3. 8  INIT_P 

This  module  is  responsible  for  initializing  the  PSET_CAT 
Pset.  Hence,  it  must  be  called  before  any  other  Pets  are 
defined.  The  module  contains  a  temporary  structure  which  is 
initialized  to  contain  the  desired  Pset  organization  for  the 
PSET_CAT  Pset.  It  calls  CREATE_E,  passing  it  the  information 
contained  in  the  structure.  The  BEU  that  is  created  repre¬ 
sents  the  PSET_CAT  catalogue  entry  for  the  PSET_CAT  Pset. 
CREATE_I  is  then  called  to  create  a  scatter  table  for  the 

Pset,  and  the  p_array  of  the  3EU  is  updated  accordingly.  The 
HASH  function  is  then  called,  passing  it  PSET_CAT  as  the 
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key,  and  the  corresponding  entry  in  the  scatter  table  is 
updated  to  point  to  the  BEU  containing  the  catalog  entry. 
Finally,  the  ID  of  the  catalogue  entry  is  saved  in  a  static 
External  variable  called  PCATPTR.  The  resulting  structure 
for  the  PSET_CAT  Pset  was  shown  in  table  4  . 

3.2.4  The  Binary  Layer 

The  conceptual  data  model  of  the  Binary  layer  is  the 
BINARY  SET  (Bset).  A  Bset  is  defined  to  be  a  set  of  rela¬ 
tionships  or  associations,  possessing  some  common  meaning, 
between  elements  of  2  Primitive  sets.  For  example,  if  one 
Primitive  set  consists  of  supplier's  names,  and  another 
Primitive  set  consists  of  parts,  then  one  could  define  a 
Binary  set  linking  suppliers  to  the  parts  that  they  supply. 
It  is  a  Binary  relationship  in  the  sense  that  only  2  sets 
of  elements  are  involved,  however,  an  instance  of  a  Binary 
set  in  no  way  need  be  1  to  1 .  For  example,  an  instance  of 
this  Bset  might  consist  of  all  the  parts  supplied  by  sup¬ 
plier  A.  In  this  case  the  relationship  might  be  1  to  n,  or 
even  m  to  n  if  more  than  1  supplier  supplies  the  same  part. 
A  Binary  association  is  simply  an  instance  of  a  Binary  set. 
A  Binary  set  is  considered  to  be  uni-directional,  i.e.  sup¬ 
plier-parts  is  one  Bset,  parts  -supplier  is  another  Bset. 


However,  the  existence  of  a  Bset  implies  the  existence  of 
it's  reciprocal. 

Thus,  a  Binary  set  is  represented  by  a  collection  of 
links  between  elements  in  two  Primitive  sets.  It  is  typi¬ 
cally  diagrammed  as  shown  below,  where  the  circles  or  nodes 
represent  the  Primitive  sets  and  the  arc  represents  the 
Binary  set  linking  the  two  Primitive  sets. 

Diagram  of  a  Binary  Set 


The  purpose  of  the  Binary  layer  is  to  map  requests  on  its 
conceptual  data  model  (the  Bset)  to  it's  physical  represen¬ 
tation,  i.e.  as  links  among  elements  of  2  Primitive  sets. 
The  Bset  is  implemented  via  the  pointer  slots  of  the  BEUs 
which  contain  the  associated  elements  in  the  Psets.  This 
means  that  the  Binary  level  must  be  aware  of  the  structure 
of  BEUs,  be  able  to  modify  the  contents  of  the  F_arrays  of 
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the  BEUs,  and  be  aware  of  the  organization  of  the  Psets 
(i.e.  it  must  have  access  to  the  PSET_CAT) .  In  addition,  the 
Binary  layer  must  maintain  a  catalogue  of  all  the  Bsets 
defined  in  the  system.  This  catalogue  would  contain  for  each 
Bset,  the  name  of  the  Bset,  the  names  of  the  Psets  involved, 
specification  of  the  type  of  Binary  association  found  in  the 
Bset,  and  implementation  information. 

The  type  of  Binary  association  in  the  Bset  determines  the 
method  by  which  the  Bset  is  implemented.  Table  8  illus¬ 
trates  the  implementation  of  a  1  to  1  Binary  association.  If 
the  type  of  Binary  association  is  1  to  1,  then  the  Bset 
define  module  uses  the  information  contained  in  the  PSET_CAT 
entries  for  the  2  Psets  to  locate  and  reserve  a  free  pointer 
slot  in  the  BEUs  of  each  Pset  to  be  used  for  Bset  linkage. 
All  Binary  associations  in  the  Bset  will  use  the  same  poin¬ 
ter  slots  to  implement  the  Binary  linkage.  Note  also  that 
the  pointer  slot  need  not  be  the  same  in  the  two  Psets.  A 
Binary  association  is  created  by  setting  the  contents  of  the 
appropriate  pointer  slot  in  the  BEU  containing  the  desired 
instance  of  the  first  Pset,  so  that  it  points  to  the  BEU 
containing  the  desired  instance  of  the  second  Pset,  and 
vice-versa . 
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TABLE  8 


Implementation  of  a  1  to  1  Binary  Association 


\ 

4 

3 


If  the  type  of  Binary  association  is  1  to  n,  then  it 
becomes  more  complicated,  as  shown  in  table  9  .  The  Bset 
define  module  still  locates  and  reserves  a  free  pointer  slot 
in  the  BEUs  of  each  Pset.  However,  the  pointer  slots  are  put 
to  different  uses.  The  pointer  slot  in  an  instance  of  domain 
1  of  the  Binary  set  does  not  point  directly  to  the  associ¬ 
ated  instances  within  domain  2,  but  rather  it  points  to  a 


PSET_CAT 

entry  for  a  subset  of  domain  2.  The  subset 

is 

defined 

as 

being  those 

elements  in  domain 

2  whi ch 

are 

related 

via 

the  Binary 

association  to  that 

instance 

of 

domain  1.  Hence,  the  Binary  layer  must  request  that  the  Pset 
layer  create  a  PSET_CAT  entry  for  the  subset.  In  order  to 
retrieve  an  instance  of  the  associated  elements  in  domain2, 
it  is  necessary  to  follow  the  pointer  in  the  instance  of 
domain  1  to  the  subset  catalogue  entry,  and  then  follow  the 
pointer  chain  specified  in  the  subset  catalogue.  The  pointer 
slot  in  the  associated  instances  of  domain  2  points  to  the 
associated  instance  of  domain  1. 

N  to  1  Binary  associations  are  implemented  in  an  analo¬ 
gous  fashion,  except  that  the  pointer  slot  in  an  instance  of 
domain  1  points  to  the  associated  instance  in  domain  2, 
whereas  the  pointer  slot  in  an  instance  of  domain  2  points 
to  a  PSET_CAT  entry  corresponding  to  a  subset  catalogue 
entry  for  domain  1 . 
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M  to  N  Binary  associations  require  the  creation  of  a 
Primitive  set  which  acts  as  a  link  set  between  instances  in 
domain  1  and  domain  2.  This  is  illustrated  in  table  10  . 
Each  element  in  the  link  set  links  one  instance  of  domain  1 
to  one  instance  of  domain  2.  Once  again,  the  Bset  define 
module  locates  and  reserves  a  pointer  slot  in  the  BEUs  of 
each  Pset,  however,  they  too  are  used  for  different  pur¬ 
poses.  The  Bset  definition  module  also  calls  the  Primitive 
Layer  to  define  a  Pset  to  be  used  as  a  link  set.  The  Binary 
association  is  implemented  so  that  the  pointer  slot  of  an 
instance  of  domain  1  points  to  a  PSET_CAT  entry  correspond¬ 
ing  to  the  subset  of  elements  in  the  link  set  which  are  used 
to  link  that  instance  of  domain  1  to  it's  associated  ele¬ 
ments  in  domain  2.  By  contrast,  the  specified  pointer  slot 
in  an  instance  of  domain  2  points  to  the  PSET__CAT  entry  for 
the  Primary  set  definition  of  the  link  set.  Thus  to  retrieve 
an  instance  of  a  m  to  n  Binary  association,  it  is  first 
necessary  to  establish  the  instance  of  domain  1.  Then  one 
must  follow  the  pointer  in  the  specified  pointer  slot  of  the 
BEU  containing  the  instance  of  domain  1  to  establish  the 
subset  definition  within  the  link  set.  Then  for  each 
instance  of  the  subset,  the  pointer  contained  in  the  appro¬ 
priate  pointer  slot  must  be  followed  to  establish  the  asso¬ 
ciated  instances  of  domain  2. 


TABLE  10 


Implementation  of  a  M  to  N  Binary  Association 
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Two  things  should  be  noted  here.  The  first  is  that  the 
discussion  so  far  presumes  that  the  instance  of  domain  2 


exists.  This  need  not  be  the  case.  A  Pset  corresponding  to 
domain  2  must  be  defined  prior  to  the  definition  of  a  Bset 
which  involves  that  Pset.  However,  if  an  instance  of  domain 
2  does  not  exist  when  a  Binary  association  is  being  created, 
the  Binary  layer  will  call  on  the  Primitive  layer  to  create 
the  required  instance  of  domain  2.  In  addition,  if  the  type 
is  M  to  N  the  Bset  layer  will  call  on  the  Primitive  layer 
to  create  elements  within  the  link  set.  The  second  point  is 
that  actions  on  a  Bset  are  always  specified  in  terms  of  an 
instance  of  domain  1.  That  is,  given  a  Bset  definition,  and 
an  instance  of  domain  1  actions  are  performed  on  the  associ¬ 
ated  instances  of  domain  2. 


3.2.5  Databases  of  the  Bset  Layer 

The  Bset  layer  implements  it's  data  model  via  the  databases 
and  modules  of  the  Primitive  layer  together  with  1  layer 
specific  database,  BSET_CAT,  and  3  1  “yer  specific  modules, 
DEFINEB, CREATES, SELECT.  In  the  following  sections  we  will 
the  databases  and  modules  unique  to  the  Binary  level. 
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3 . 2 . 5 . 1  BSET_CAT 

Every  Binary  set  defined  in  the  system  has  an  entry  in 
the  BSET_CAT .  The  BSET_CAT  entry  for  a  Binary  set  provides 
information  on  the  Binary  set  and  how  it  is  implemented. 
Specifically,  an  entry  in  the  BSET_CAT  is  declared  as  fol¬ 
lows: 

1  BSET_CAT  DEFINED (BASE) 

2  SET_NAME  BIT(64), 

2  DOMAIN_INFO( 2 ) , 

3  NAME  BIT( 64) , 

3  AP_POS  BIT( 8) , 

2  TYPE  BIT( 8 ) , 

2  SUB_ID  BIT(8 ) , 

2  MN_NAME  BIT (64), 

BASE  BIT( 320 ) ; 

Where  each  element  is  interpreted  as  follows: 

SET_NAME  -  This  is  the  name  of  the  BSET. 

DOMAIN_INFO(2 )  -  For  each  Pset  (i.e.  domain)  in  the  Bset 
it  is  necessary  to  know  the  name  of  the  Pset,  which  is  spe¬ 
cified  by  NAME ( i ) ,  and  the  position  of  the  pointer  slot 
reserved  in  the  Pset  for  implementing  the  Binary  associa¬ 
tion,  which  is  specified  by  AP_?0S(i).  Note,  the  names  spe- 
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cified  are  those  of  the  Primary  sets  involved  and  not  those 
of  the  subsets  which  may  be  defined  during  creation  of  a 
Binary  association. 

TYPE  -  This  element  specifies  the  type  of  Binary  associa¬ 
tion  found  in  the  Binary  set. The  type  may  be  either  1  to  1, 
1  to  n,  n  to  1,  or  m  to  n.  A  bit  string  code  is  used  to 
represent  the  type  of  Binary  association  contained  in  the 
Bset . 

SUB_ID  -  If  the  type  is  anything  other  than  1  to  1,  then 
some  form  of  subset  chaining  is  involved  as  discussed  in  an 
earlier  section.  This  field  specifies  the  pointer  slot  in 
the  Pset  which  is  to  be  used  for  subset  chaining. 

MN_NAME  -  If  the  type  is  m  to  n,  then  this  field  is  used 
to  specify  the  name  of  the  link  set  used  to  implement  the 
Bset. 

BASE  -This  is  used  to  overlay  the  BSET_CAT  entry  on  the 
data  portion  of  the  BEU  in  which  it  is  contained.  The 
BSET_CAT  is  implemented  as  a  Pset,  where  each  element  in  the 
Pset  corresponds  to  a  BSET_CAT  entry.  Via  a  string  overlay, 
the  contents  of  a  BEU  containing  an  entry  of  the  BSET_CAT, 
can  be  interpreted  as  such.  This  means  of  implementing  the 


BSET_CAT  allows  the  Bset  layer  to  use  the  functions  provided 
by  the  Primitive  layer  to  help  it  manage  its  catalogue.  For 
example,  the  CREATEP  module  can  be  used  to  insert  new 
entries  into  the  BSET_CAT,  and  the  SEARCH  and  FETCH  modules 
can  be  used  to  retrieve  elements  in  the  BSET_CAT.  This  is  a 
clear  example  of  how  the  concept  of  a  functional  hierarchy 
can  reduce  redundancy  of  function. 

3.2.6  Modules  of  the  Binary  Layer 
3.2.6. 1  DEFINEB 

This  module  is  responsible  for  defining  the  physi'-’.l 
representation  of  a  Bset,  given  the  name  of  the  Bset,  the 
names  of  the  2  Primary  sets  involved,  and  the  type  of  Binary 
association.  To  accomplish  this  task  it  must:  1)  check  for 
the  existence  of  the  2  Psets,  2)  locate  and  reserve  a  free 
pointer  slot  in  each  Pset,  3)  If  the  link  type  is  anything 
other  than  1  to  1  it  must  reserve  an  additional  pointer  slot 
in  one  of  the  Psets  to  be  used  for  subset  chaining,  4)  If 
the  set  type  is  m  to  n  it  must  define  a  Pset  to  act  as  a 
link  set,  and  e)  it  must  build  the  BSET_CAT  entry  for  the 
Bset  and  have  it  inserted  into  the  BS£T_CAT  Pset. 

Tasks  1),  2)  and  3)  require  that  the  DEFINE3  module  have 
access  to  the  PiiET  CAT  entries  for  the  Psets  involved.  It 
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calls  the  SEARCH  module  to  retrieve  the  IDs  of  the  needed 
PSET_CAT  entries,  and  overlays  a  copy  of  PSET_CAT  on  the 
BEUs  found,  hence  allowing  it  to  interpret  the  contents  of 
the  BEUs  as  entries  in  the  PSET_CAT.  It  locates  and 
reserves  pointer  slots  in  the  same  manner  as  the  Primary 
layer,  i.e.  via  calls  to  the  MAPSET  module,  except  that  the 
relevant  map  in  the  catalogue  entries  is  the  AP_MAP.  Note, 
since  the  DEFINEB  module  is  working  on  the  the  actual 
PSET_CAT  entries  for  the  Psets,  they  are  automatically 
updated  to  reflect  any  changes  made  by  the  DEFINEB  module. 
DEFINEB  also  has  an  equivalent  mode  whereby  if  a  Bset  being 
defined  is  the  reciprocal  of  an  existing  Bset,  then  the  same 
pointer  sloes  are  used  to  implement  the  2  Bsets. 

Task  4)  is  accomplished  via  a  call  to  DEFINEP,  passing  it 
the  name  of  the  link  set  to  be  defined  and  it's  characteris¬ 
tics.  In  a  similar  manner,  to  perform  task  e)  CREATE?  is 
called,  passing  it  BSET_CAT  as  the  name  of  the  Pset  and  a 
bit  string  representation  of  the  new  BSET_CAT  entry  as  the 
data  value. 


3 . 2 . 6 . 2  CREATEB 

This  module  is  responsible  for  implementing  an  instance 
of  a  Bset,  given  the  name  of  the  Bset,  a  means  of  establish¬ 
ing  the  instance  of  the  first  domain,  and  a  data  value  to 
establish  the  instance  of  the  second  domain.  In  order  to 
implement  the  Binary  association  the  CREATEB  module  must 
accomplish  several  tasks:  1)  It  must  first  fetch  the 
BSET_CAT  entry  for  the  Bset,  then  2)  it  must  establish  the 
desired  instances  within  domain  1  and  domain  2,  finally  3) 
it  must  implement  the  linkage  in  accordance  with  the  Binary 
association  type  specified  in  BSET_CAT  entry  for  the  Bset. 

Task  1)  is  accomplished  via  a  call  to  the  FETCH  module, 
passing  it  BSET_CAT  as  the  Pset  name  and  the  name  of  the 
Bset  as  the  key.  FETCH  returns  a  bit  string  which  corres¬ 
ponds  to  the  data  prtion  of  the  BEU  which  contains  the  cata¬ 
logue  entry.  By  setting  BASE  equal  to  this  bit  string,  the 
BSET_CAT  structure  is,  in  effect,  overlaid  on  the  bit 
string,  and  the  contents  of  the  bit  string  can  be  inter¬ 
preted  accordingly. 

Task  2)  is  also  straightforward.  When  CREATEB  is  called, 
the  desired  instance  of  domain  1  must  already  exist.  How¬ 
ever,  it  is  not  necessary  for  the  instance  of  domain  2  zo 
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exist.  The  desired  instance  of  domain  1  can  be  identified  in 
the  call  either  by  its  ID  or  by  a  key  value.  If  a  key  is 
specified,  then  the  SEARCH  module  is  invoked  to  return  the 
ID  of  the  element  in  domain  1  which  matches  the  key.  If  no 
element  is  found  the  module  returns.  Since,  the  desired 
instance  of  domain  2  is  specified  via  a  key,  it  is  necessary 
to  call  SEARCH  to  establish  if  the  desired  instance  of 
domain  2  exists.  If  it  doesn't,  then  CREATEP  is  called  to 
create  an  instance  of  the  element  in  domain  2. 

Task  3)  is  fairly  complex  because  of  the  possible  need  to 
define  a  subset  catalogue  entry.  If  the  Binary  association 
is  1  to  1  the  linkage  is  straightforward.  If  the  link  type 
is  1  to  n  then  the  appropriate  pointer  slot  in  the  BEU  con¬ 
taining  the  instance  of  domain  1  is  examined  to  see  if  it  is 
null.  If  it  is,  then  DEFINEP  is  called  to  create  a  PSET_CAT 
definition  for  the  subset  within  domain  2,  and  CREATEB 
places  the  ID  of  the  catalogue  entry  in  the  pointer  slot  of 
the  BEU  in  domainl.  In  either  event,  the  instance  of  domain 
2  is  inserted  into  the  subset  specified  by  the  subset  cata¬ 
logue  entry.  The  pointer  slot  in  the  instance  of  domain  2  is 
then  updated  to  point  to  the  instance  of  domain  1.  If  the 
set  type  is  n  to  1,  similar  logic  is  employed.  If  the  set 
type  is  m  to  n,  then  if  the  pointer  slot  in  the  BEU  contain- 


ing  the  instance  of  domain  1  is  null,  then  DEFINEP  is  called 
to  create  a  subset  definition  for  a  subset  within  the  link 
set,  and  the  pointer  slot  in  the  BEU  is  updated  to  point  to 
this  catalogue  entry.  In  any  event,  CREATEP  is  called  to 
insert  a  new  link  element  into  the  subset,  and  the  appropri¬ 
ate  pointer  slots  in  the  link  element  are  updated  to  point 
to  the  associated  instances  of  domain  1  and  domain  2. 
Finally,  the  pointer  slot  in  the  instance  of  domain  2  is 
updated  to  point  to  the  Primary  set  catalogue  entry  for  the 
link  set. 

3 . 2 . 6 . 3  SELECTF 

This  module  is  responsible  for  retrieving  the  associated 
instances  of  domain  2,  given  the  name  of  the  Bset  and  a 
means  of  identifying  an  instance  of  domain  1.  It  returns  the 
associated  instances  of  domain  2  in  the  temporary  database 
INFO_ND .  The  logic  is  straightforward.  It  first  calls  FETCH 
to  retrieve  the  BSET_CAT  entry  for  the  Bset.  If  the  instance 

of  domain  1  is  identified  by  a  key  value,  then  SEARCH  is 
called  to  return  the  ID  of  the  BEU  containing  the  desired 
instance  of  domain  1.  The  associated  elements  in  domain  2 
are  also  fetched  via  the  FETCH  module.  If  the  set  type  is  1 
to  1  or  N  to  1,  then  FETCH  is  called,  passing  it  the  con- 
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tents  of  the  specified  pointer  slot  in  the  BEU  containing 
the  instance  of  domain  1  which  represents  the  ID  of  the 
associated  element  in  domain  2.  If  the  type  is  1  to  N,  then 
FETCH  is  called,  passing  it  the  name  of  the  PSET_CAT  cata¬ 
logue  entry  pointed  to  by  the  pointer  slot  in  domain  1  as 
the  name  of  the  Pset  to  fetch,  and  specifying  a  retrieval 
mode  of  all.  This  has  the  effect  of  fetching  all  of  the  ele¬ 
ments  contained  in  the  subset.  If  the  type  is  m  to  n,  a 
similar  approach  is  used  to  retrieve  the  subset  of  link  ele¬ 
ments  which  link  the  instance  of  domain  1  to  instances  of 
domain  2.  FETCH  is  then  called  for  each  element  in  the  sub¬ 
set  of  the  link  set,  passing  it  the  contents  of  the  pointer 
slot  used  in  the  link  set  to  point  to  instances  of  domain  2. 

3.2.7  Concluding  Remarks  on  Internal  Level 

This  concludes  our  discussion  of  the  Internal  level.  The 
conceptual  data  model  it  presents  to  the  Nset  or  Conceptual 
layer  is  that  of  Primitive  sets  and  Binary  sets.  On  the  one 
hand  this  is  a  very  simple  data  model,  yet  by  building  up 
aggregates  of  Primitive  sets  and  Binary  sets  it  is  possible 
to  support  complex  data  structures.  As  we  will  see  later  on, 
the  Conceptual  level's  data  model  is  nothing  more  than  the 
aggregation  of  Primitive  sets  and  Binary  sets.  The  power  of 


this  approach  is  that  while  the  Conceptual  level  makes  great 
use  of  Binary  and  Primitive  sets,  it  is  not  necessary  for  it 
to  be  concerned  with  the  actual  implementation  of  them.  It 
simply  issues  calls  to  the  Internal  level  to  either  define 
Primitive  and  Binary  sets,  or  to  insert  elements  into  them, 
or  to  retrieve  elements  from  within  a  Primitive  set  or  that 
are  associated  through  a  Binary  set.  It  is  the  Internal 
level's  responsibility  to  translate  the  requests  which  are 
in  term' s  of  its  conceptual  data  model  into  operations  on 
the  data  model  as  actually  implemented  by  the  Internal 
level . 

The  hierarchical  relationship  of  the  Binary  layer  to  the 
Primitive  layer  should  have  been  apparent  from  this  discus¬ 
sion.  We  have  seen  that  the  BSET_CAT  is  implemented  as  a 
Pset.  As  a  result,  it  is  possible  to  make  use  of  the  func¬ 
tions  provided  by  the  Primitive  layer  to  perform  many  of  the 
requisite  catalogue  management  tasks.  Rather  than  write  a 
specialized  BSET_CAT  search  routine,  it  is  possible  to  use 
the  Primitive  layer's  SEARCH  routine.  In  a  similar  fashion, 
there  is  no  need  for  a  specialized  BSET_CAT  insert  routine, 
because  the  Primitive  layer's  CREATEP  routine  can  be  used. 
Even  the  Binary  layer  routines  such  as  CREATE3  rely  on  the 
Primitive  layers  routines.  For  example,  if  an  instance  of 
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domain  2  need  be  created,  the  CREATEB  routine  calls  CREATEP 
to  create  the  new  element. 

The  power  of  this  approach  is  that  it  reduces  redundancy 
of  function  to  a  minimum,  which  is  one  of  the  prime  objec¬ 
tives  of  the  functional  hierarchy  concept  <Madnick79>.  This 
serves  a  dual  purpose.  On  the  one  hand,  it  greatly  decreases 
development  time  because  once  a  particular  functional  module 
has  been  tested  and  debugged  it  can  be  used  by  any  other 
module  which  needs  to  perform  that  same  function.  On  the 
otherhand,  it  increases  the  reliability  of  the  system  not 
only  because  it  reduces  the  complexity  of  the  system,  but 
also  because  it  isolates  functionality.  That  is,  if  a  parti¬ 
cular  function  is  not  being  performed  correctly,  the  problem 
can  be  isolated  to  a  particular  module,  rather  than  having 
to  change  multiple  modules  all  of  which  perform  a  similar 
function. 

3.3  THE  NSET  LEVEL 

The  Nset  or  N-ary  level  sits  on  top  of  the  Internal 
level,  and  beneath  the  External  level.  The  role  of  the  Nset 
level  is  to  provide  an  interface  between  the  External  and 
Internal  levels,  and  in  effect  shield  them  from  each  other. 
It  allows  the  External  level  to  express  actions  on  the  data- 
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base  in  terms  of  the  Nset  level's  conceptual  data  model.  The 
Nset  level  then  translates  these  actions  into  the  appropri¬ 
ate  calls  to  the  Internal  level.  In  this  manner,  the  Exter¬ 
nal  level  is  made  completely  independent  of  the  implementa¬ 
tion  of  the  Internal  level. 

3.3.1  Overview  of  the  Nset  Level 


This  section  will  describe  the  conceptual  data  model  of 
the  Nset  level,  and  outline  the  logical  structure  of  the 
level.  Table  11  illustrates  the  modules  and  databases  of 
the  Nset  level. 

The  data  model  chosen  for  this  implementation  is  a  modi¬ 
fied  Binary  network.  The  basic  structure  is  referred  to  as 
an  Entity  set.  Conceptually,  an  Entity  set  consists  of  one 
or  more  attributes  which  collectively  describe  an  object  or 
entity.  An  instance  of  an  Entity  set  is  represented  by  the 
collection  of  instances  of  it's  attributes.  Table  12 
illustrates  a  way  of  diagramming  an  Entity  set  using  the 
concept  of  nodes  and  arcs.  There  are  2  types  of  nodes  in  an 
Entity  set,  value  nodes,  which  correspond  to  attributes,  and 
entity  nodes  which  act  to  join  the  attributes.  An  entity 
node  derives  it's  value  from  the  values  of  the  attached 
value  nodes.  The  arcs  connecting  the  nodes  represent  sets  of 
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TABLE  11 


1 


The  Modules  and  Databases  of  the  Nset  Level 
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Binary  associations  (i.e.  Binary  set)  connecting  the 
attributes  to  the  entity  node. 

As  the  reader  has  probably  deduced  an  Entity  set  can  be 
viewed  as  a  collection  of  Primitive  sets  and  Binary  sets 
which  have  some  collective  meaning.  The  nodes  represent 
Primitive  sets  and  the  arcs.  Binary  sets.  More  specifically, 
an  Entity  set  consists  of  n  Primitive  sets  which  contain 
actual  data  values,  linked  via  2n  Bsets  to  a  Primitive  set 
which  contains  no  data  other  than  information  needed  to  link 
the  instances  of  the  attributes.  2n  Bsets  are  required  to 
implement  essentially  bi-directional  links  between  the 
attributes  and  the  entity  node.  The  Binary  association  bet¬ 
ween  an  attribute  and  the  entity  node  may  be  1  to  1,  1  to  n, 
n  to  1  or  m  to  n. 

Several  points  are  worth  noting  here.  First,  it  should  be 
clear  that  mapping  the  conceptual  data  model  of  the  Entity 
set  to  the  conceptual  data  model  of  the  Internal  level  is 
straightforward.  Second,  entity  sets  provide  a  very  simple 
mapping  for  the  External  data  model  of  the  relation.  Concep¬ 
tually  a  relation  can  be  viewed  as  a  special  type  of  Entity 
set.  The  domains  correspond  to  attributes,  and  a  tuple  cor¬ 
responds  to  an  instance  of  the  Entity  set.  In  addition,  the 
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TABLE  12 


Example  of  an  Entity  Set 
P/VfcT 
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Bset  connecting  an  attribute  to  the  entity  node,  is  res¬ 
tricted  to  1  to  1  (if  the  attribute  is  a  unique  key)  or  n  to 
1  (if  a  value  of  the  attribute  can  be  in  more  than  one 
tuple)  if  the  Entity  set  is  used  to  implement  a  relation.  A 
third  point  to  note  is  that  this  structure  is  conceptually 
identical  to  a  fully  inverted  file.  Once  an  instance  of  a 
particular  attribute  is  found,  it  becomes  a  simple  matter  to 
find  all  the  instances  of  1  or  more  Entity  sets  which  have 
that  instance  of  the  attribute.  Finally,  there  is  at  most  1 
occurence  of  a  given  data  item  within  an  attribute,  no  mat¬ 
ter  how  many  Entity  sets  containing  that  attribute.  Thus  the 
problems  of  data  redundancy  largely  disappear. 

The  task  of  the  Nset  level  is  to  accept  actions  against 
its  conceptual  data  model  and  map  them  to  the  necessary 

calls  to  the  Internal  level  which  would  actually  perform  the 
required  actions  on  the  physical  representation  of  the  data¬ 
base.  For  example,  to  define  an  Nset,'  given  a  name,  the 
names  of  the  attributes  and  information  concerning  the  rela¬ 
tionship  of  the  attributes  to  the  entity,  the  Nset  level 
must  perform  several  tasks.  First,  it  must  have  the  Inter¬ 
nal  level  define  a  Pset  to  act  as  the  entity  node.  Then,  for 
each  attribute  it  must  call  the  Internal  level  and  have  it 
define  a  Bset  linking  the  Pset  acting  as  the  entity  node  to 
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the  Pset  acting  as  the  attribute  node.  This  presumes  that 
the  Internal  level  was  called  earlier  to  define  the  Psets 
referenced  as  attributes.  Finally,  it  must  create  a  cata¬ 
logue  entry  describing  the  Nset,  and  have  the  Internal  level 
insert  the  physical  representation  of  the  catalogue  entry 
into  the  the  physical  representation  of  the  Nset  catalogue. 

The  Nset  catalogue  is  implemented  as  an  Nset  called 
NSET_CAT  as  shown  in  t  .  It  consists  of  3  Psets  (N_NAME, 
which  contains  the  name  of  the  Nset;  N_ATTR,  which  contains 
the  attribute  descriptions;  and,  NSET_CAT  which  acts  as  the 
entity  node)  and  2  Bsets  connecting  the  2  attribute  Psets 
with  the  entity  node  Pset.  Since  the  NSET_CAT  is  nothing 
more  than  an  aggregation  of  Psets  and  Bset,  its  possible  to 
use  the  Internal  level's  routines  to  help  retrieve  and  man¬ 
age  the  catalogue.  For  example,  to  retrieve  an  instance  of 
the  NSET_CAT,  the  FETCH  routine  is  called  to  establish  the 
desired  instance  of  the  name  attribute.  The  SELECTF  routine 
is  then  called  to  establish  the  associated  instance  of  the 
entity  node.  It  is  then  called  again  to  retrieve  the  associ¬ 
ated  elements  of  the  attribute  description  Pset. 

To  insert  an  instance  of  an  entity  into  a  Nset,  given  the 
name  of  the  Nset  and  values  for  the  attributes,  the  first 
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TABLE  13 
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task  is  to  have  the  Internal  level  fetch  the  Nset  catalogue 
entry  for  the  Nset.  The  level  must  then  check  to  insure  that 
insertion  of  the  instance  of  the  Nset  would  not  violate  the 
definition  of  the  Nset  (i.e.  is  a  unique  key  value  already 
existed  in  the  Nset) .  Once  again,  it  would  be  the  Internal 
level  which  would  be  called  to  perform  the  searching.  Given, 
that  it  was  a  valid  request,  the  Nset  level  would  then  call 
the  Internal  level  to  create  an  instance  of  the  Pset  acting 
as  the  entity  node.  Finally,  for  each  attribute  it  would 
call  the  Internal  level  to  create  a  Binary  association  bet¬ 
ween  the  instance  of  the  entity  node  Primitive  set  and  an 
instance  of  the  attribute  Pset  containing  the  appropriate 
value. 

Retrieval  is  somewhat  more  complex,  in  that  a  request  may 
specify  restrictions  on  certain  attributes  (i.e.  p  =  298), 
and  may  encompass  more  than  1  Nset  which  share  common  attri¬ 
butes  (i.e.  if  a  join  is  being  requested).  The  External 
level  specifies  a  retrieval  request  via  a  temporary  struc¬ 
ture  called  RET_ARG.  RET_ARG  contains:  the  names  of  the 
Nsets  to  be  fetched,  and  any  restrictions  on  the  values  of 
attributes  including  join  restrictions.  The  first  task  is 
to  build  a  temporary  database  which  combines  the  information 
contained  in  the  request,  together  with  the  NSET  catalogue 


entries  for  each  Nset  specified.  This  is  accomplished  in 
part  via  multiple  calls  to  the  Internal  level.  Restrictions 
other  than  join  restrictions  are  then  taken  into  account. 
For  any  attribute  on  which  a  restriction  has  been  placed, 
the  Internal  level  is  called,  first  to  locate  the  instance 
of  the  attribute  which  meets  the  restriction  and  then  to 
locate  the  associated  instances  of  the  entity  node  for  that 
Nset.  These  entity  nodes  are  then  compared  to  other  entity 
nodes  for  the  Nset  which  satisfied  previous  restrictions. 
The  intersection  of  those  nodes  represents  the  entity  nodes 
which  satisfy  all  of  the  non-join  restrictions  specified 
for  attributes  of  that  Nset.  Once  this  is  done  for  all  of 
the  Nset's  specified  in  the  request,  the  join  restrictions 
are  followed  through.  This  is  done  by  going  through  the  set 

of  restricted  entity  nodes  for  one  of  the  Nsets  and  for  each 
node  establishing  the  entity  nodes  in  the  other  restricted 
sets  of  entity  nodes  which  both  satisfy  the  join  criteria 
for  this  Nset  as  well  as  with  other  Nsets  specified  in  the 
request.  The  complicating  factor  here  is  that  a  retrieval 
request  can  specify  joins  on  more  than  2  Nsets,  the  reason 
for  which  will  be  discussed  in  reference  to  the  External 
level.  The  result  of  the  join  operation  is  a  collection  of 
entity  nodes  which  satisfy  all  of  th  restrictions  specified 


in  the  request.  The  entity  nodes  are  then  organized  to  form 
a  table,  where  the  rows  correspond  to  instances  of  joined 
Nsets  and  the  columns  correspond  to  the  different  Nsets 
involved.  This  structure  acts  as  a  proxy  for  the  relation 
satisfying  the  join  and  select  restrictions  specified  in  the 
retrieval  request.  The  final  task  is  to  fetch  the  associ¬ 
ated  instances  of  the  attributes.  The  retrieved  values  for 
the  attributes  are  placed  in  a  temporary  database  which  is 
returned  to  the  External  level. 

The  reader  should  note  that  joins  are  conceptual  rather 
than  physical.  When  a  join  is  specified  by  the  External 
level,  it  is  done  so  within  the  context  of  a  retrieval 
request,  rather  than  within  the  context  of  a  define  request. 
That  is,  a  new  Nset  is  not  created,  at  the  Nset  level,  as  a 
result  of  a  join  action.  However,  the  user  sees  an  implicit 
Nset  which  is  consistent  with  the  join  action.  This  means 
that  every  time  a  user  wants  to  see  the  contents  of  the  Nset 
'created'  by  the  join  action,  the  Nset  level  must  go  through 
the  join  logic  described  above.  This  may  be  inefficient  if 
it  is  referenced  a  great  deal. 
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3.3.2  Databases  of  the  Nset  Level 

The  Nset  level  has  3  classes  of  databases  which  it  uses 
to  implement  its  data  model  and  communicate  with  the  other 
layers.  The  first  type  is  the  NSET_CAT  which  the  Nset  level 
maintains  to  implement  it's  data  model.  It  provides  informa¬ 
tion  on  all  of  the  Nsets  defined  in  the  system.  The  second 
type  of  Databases  are  those  which  are  used  by  the  Nset  and 
External  levels  to  communicate  with  each  other.  INSERT_ARG, 
RET_ARG,  DV_ARG,  DEFINE_ARG  are  all  used  by  the  External 
level  to  provide  information  to  the  Nset  level  neccessary 
to  implement  requests  made  by  the  External  level.  DOM_P.ET  is 
used  by  the  Nset  level  to  return  data  values,  resulting  from 
a  retrieval  request,  back  to  the  External  level.  The  third 
type  are  databases  used  to  communicate  with  the  Internal 
level,  i.e.  INFO_ND  and  IDS1,  both  of  which  were  discussed 
with  regard  to  the  Internal  level  and  so  will  not  be  dis¬ 
cussed  here. In  the  following  section  we  will  outline  the 
structure  of  the  databases  mentioned  above. 

3 . 3 . 2 . 1  NSET_CAT 

This  database  is  used  to  manage  the  implementation  of  the 
Nset  level's  data  model.  Every  Nset  defined  in  the  system 
has  an  entry  in  the  NSET_CAT  which  describes  the  Nset  and 
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provides  information  on  its  implementation.  The  NSET_CAT  is 
viewed  by  the  Nset  level  as  being  an  Nset  and  is  implemented 
as  shown  in  Table  13  Since,  an  entry  of  the  NSET_CAT  is 
ultimately  stored  as  a  collection  of  BEUs,  all  of  the  fields 
are  specified  as  bit  strings.  Whenever  an  entry  of  the 
NSET_CAT  is  required,  the  BUILDC  module  maps  the  NSET_CAT 
entry  into  the  following  data  structure: 

1  NCAT, 

2  NNAME  BIT( 64) , 

2  NATTR  BIT ( 8 ) , 

2  ATTR(20)  , 

3  ANAME  BIT( 64) , 

(  3  K_TYPE , 

3  BREL  )  BIT ( 8 ) , 

(  3  BSETUP , 

3  BSETDOWN  )  BIT (64); 

Where  each  element  is  interpreted  as  follows: 

NNAME  -  A  unique  name  identifying  the  Nset. 

NATTR  -  Number  of  Attributes  in  this  Nset. 

ATTR(2Q)  -  For  each  attribute  in  the  Nset: 

ANAME  -  Name  of  a  previously  defined  Primary  set. 
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K_TYPE  -  Used  to  specify  if  instances  of  this 
attribute  uniquely  define  instances  of  the  Nset,  i.e. 
if  this  is  a  key  or  candidate  key. 

BREL  -  The  type  of  Binary  association  between 
instances  of  the  entity  node  and  instances  of  the 
attribute.  In  this  implementation  the  type  is  limited 
to  1  to  1  (if  instances  of  the  attribute  uniquely 
define  an  instance  of  the  Nset),  or  n  to  1. 

BSETUP  -  Name  of  the  Bset  used  to  implement  the 
attribute-entity  Binary  association. 

BSETDOWN  -  Name  of  the  Bset  used  to  implement  the 
entity- attribute  Binary  association. 

There  is  an  associated  database  called  NCAT2  which  is 
created  during  the  retrieval  process.  It  is  implemented  as 
an  array  where  each  element  corresponds  to  the  NSET_CAT 
entry  for  an  Nset  and  retrieval  information  for  that  Nset 
derived  from  the  RET_ARG  database.  There  is  an  element  for 
each  Nset  specified  in  the  retrieval  request.  This  database 
is  declared  as  follows: 

1  NCAT2 ( 5 ) , 

2  NCAT_INFO  LIKE  NCAT, 

3  RET  INFO, 
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(4  FETCH, 

4  SAME  )  BIT( 8 ) , 

4  VALUE  BIT( 160) ; 

Where  the  RET_INF0  fields  are  interpreted  as  follows: 

FETCH  -  Used  to  specify  if  values  of  the  attribute  are  to 
be  fetched.  This  allows  the  retrieval  request  to  essen¬ 
tially  project  the  Nset  on  desired  attributes. 

SAME  -  Used  to  specify  if  the  attribute  is  the  same  as  an 
attribute  in  another  Nset  specified  in  the  request.  The 
first  4  bits  of  SAME  specify  the  index  of  the  Nset  in  NCAT2, 
the  last  4  bits  specify  the  index  of  the  attribute  within 
the  Nset.  (SAME  is  described  in  greater  detail  in  a  later 
section) 

VALUE  -  Used  to  specify  any  restrictions  placed  on  the 
attribute  in  the  retrieval  request.  As  currently  imple¬ 
mented,  only  equality  restrictions  are  supported. 

3. 3. 2. 2  Inter-level  Communication  Databases 

The  databases  described  in  this  section  are  temporary 
databases  used  by  the  External  and  Nset  levels  to  communi¬ 
cate  with  each  other.  They  are  temporary  in  the  sense  that 
they  are  not  stored  as  Psets  and  Bsets,  and,  in  fact,  exist 
only  while  certain  routines  are  active. 
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3 . 3 . 2 . 3  DEF_ARG 

Used  in  conjunction  with  a  DEFINEN  request  (i.e.  a 
request  by  the  External  level  to  define  an  Nset) .  Specifies 
the  conceptual  structure  of  the  Nset  to  be  defined.  It  is 
declared  as  follows: 

1  DEF_ARG , 

2  NNAME  BIT (64), 

2  NATTR  BIT( 8) , 

2  ATTR(20), 

3  ANAME  BIT (64), 

3  K_TYPE  BIT( 8) ; 

Where  each  element  has  the  following  meaning: 

NNAME  -  Unique  name  identifying  Nset  to  be  defined. 
Entity  node  Pset  takes  on  this  name. 

NATTR  -  The  number  of  attributes  in  this  Nset. 

ATTR(20)  -  The  following  information  must  be  specified 
for  each  attribute: 

ANAME  -  Name  of  attribute.  Must  uniquely  identify  a 
previously  defined  Pset. 

K_TYPE  -  Specifies  if  values  for  this  attribute  uni¬ 
quely  define  the  instance  of  the  Nset. 
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3 . 3 . 2 . 4  DV  ARG 


Used  by  the  External  level  in  conjunction  with  a  DEFINEV 
call  to  specify  the  structure  of  a  value  node(i.e.  a  Primi¬ 
tive  set)  to  be  defined  by  the  Nset  level.  It  is  declared  as 
follows : 

1  DV_ARG 

2  NAME  BIT( 64) , 

2  KEY_LEN  BIT(8); 

Where  each  element  is  defined  as  follows: 

NAME  -  Unique  name  of  the  Value  node  to  be  defined.  The 
Primitive  set  defined  by  the  Nset  level  a  result  of  this 
request  takes  on  this  name. 

KEY_LEN  -  Length  of  key  field  within  value  node/Pset. 
Specified  in  terms  of  bit  length. 

3 . 3 . 2 . 5  INSERT_ARG 

Used  by  External  level  in  conjunction  with  an  INSERTN 
call  to  specify  a  tuple  to  be  inserted  by  the  Nset  level 
into  a  previously  defined  Nset.  It  is  declared  as  follows: 

1  INSERT_ARG, 

2  NNAME  BIT (64), 

2  NATTR  BIT ( 8 ) , 

2  ATTR(20 ) , 
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3  NAME  BIT ( 64)  , 

3  VALUE  BIT( 320 ) ; 

Where  the  elements  are  interpreted  as  follows: 

NNAME  -  Name  of  previously  defined  Nset  into  which  this 
instance  is  to  be  inserted. 

NATTR  -  Number  of  attribute-values  specified  in  this 
request. 

ATTR(20)  -  The  following  information  must  be  supplied  for 
each  instance  of  an  attribute  specified  in  the  request: 

NAME  -  Name  of  attribute.  Note,  the  order  in  which 
attributes  are  specified  is  not  important. 

VALUE  -  3it  string  representation  of  instance  of 
attribute . 


3 . 3 . 2 . 6  RET_ARG. 

Used  by  External  level  to  specify  arguments  of  a  retrieval 
request  to  the  Nset  level.  It  allows  the  External  level  to 
specify  the  equivalent  of  a  join  on  up  to  5  Nsets,  place 
restrictions  on  the  values  of  attributes,  and  specify  which 
attributes  are  to  be  fetched.  It  is  declared  as  follows: 

1  RET  ARG, 
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2  NUMN  BIT( 8) , 

2  NSET( 5 )  BIT( 64) , 
2  ARGS(20)/ 


3  N_ INDEX  BIT(8), 

3  NAME  811(64), 

3  RET_INFO, 

(4  FETCH, 

4  SAME  )  BIT ( 8 ) , 

4  VALUE  BIT( 160) ; 

Where  each  field  is  defined  as  follows  (Note,  Table  14 
illustrates  an  example  of  how  RET_ARG  may  be  used  to  express 
a  retrieval  request,  and  the  reader  may  want  to  study  that 
table  in  conjunction  with  the  following  discussion. ) 

NUMN  -  Number  of  Nsets  specified  in  the  request. 

NSET(5)  -  An  array  used  to  specify  the  names  of  the  Nsets 
involved  in  the  request. 

ARGS(20)  -  Every  attribute  of  an  Nset  specified  in  NSET 
must  have  an  entry  in  the  ARG  array. 

N_INDFX  -  Used  to  specify  for  which  Nset  in  NSET 
this  is  an  attribute  description. 
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NAME  -  the  name  of  the  attribute,  must  correspond  to 
an  attribute  in  the  NSET(N_INDEX)  Nset. 

RET_INFO  -  Used  to  specify  retrieval  information  for 
the  attribute.  It  contains  the  following  elements: 

FETCH  -  Flag  to  indicate  if  instances  of  this  attri¬ 
bute  are  to  be  fetched,  i.e.  returned  to  the  External 
level,  if  they  are  contained  in  instances  of  the  Nset 
which  satisfy  all  restrict  and  join  criteria. 

SAME  -  Used  to  specify  if  this  attribute  is  the  same 
as  a  previously  specified  attribute.  Used  essentially 
to  specify  joins.  First  4  bits  represent  the  index  of 
the  Nset,  the  last  4  bits  specify  the  attribute  within 
that  Nset  on  which  instances  of  this  attribute  are  to 
be  joined.  For  example,  in  Table  14  the  Nset  SP  is 
joined  on  S  with  SUPPLIER.  The  SAME  field  for  the  S 
attribute  of  SP  is  14  (hex)  which  indicates  that  it  is 
to  be  joined  with  the  first  Nset  specified  in  RET_ARG, 
on  the  4th  attribute  specified  for  that  Nset.  Note, 
this  approach  limits  the  number  of  Nsetsspecif ied  in  a 
request  tol6,  with  a  maximum  of  le  attributes  per  Nset. 


104 


VALUE  -  Used  to  specify  a  value  on  which  this  attri¬ 


bute  is  to  be  restricted. 


3 . 3 . 2 . 7  DOM_RET 

This  database  is  used  by  the  Nset  level  to  return  data 
elements  to  the  External  level  retrieved  as  a  result  of  a 
retrieval  request.  The  database  is  implemented  as  a  stack  of 
bit  strings,  where  each  element  corresponds  to  an  instance 
of  an  attribute  which  met  the  retrieval  criteria  specified 
in  RET_ARG.  Retrieved  elements  are  placed  on  the  stack  such 
that  instances  of  tuples  are  represented  by  consecutive  data 
elements.  The  database  is  declared  as  follows: 

1  DOM_RET  EXTERNAL  CONTROLLED, 

2  D_ID  BIT( 8 ) , 

2  VALUE  B I T ( 3  2  0 ) ; 

Where  each  field  is  interpreted  as  follows: 

D_ID  -  Identifies  the  Nset  and  Attribute  to  which  this 
data  element  belongs.  Uses  the  same  convention  as  used  in 
RET_ARG . SAME ,  ie.  the  first  4  bits  specify  the  index  of  the 
Nset  in  RET_ARG. NSET,  and  the  last  4  bits  specify  the  attri¬ 
bute  within  that  Nset. 
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TABLE  14 

Example  use  of  RET_ARG 
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VALUE  -  Bit  string  respresentation  of  the  value  of  this 
instance  of  the  attribute. 

3. 3. 2. 8  The  FV_ARG  database 

This  database  is  used  by  the  External  level  to  specify 
the  retrieval  of  an  instance  of  a  Pset.  It  is  also  used  by 
the  Nset  level  to  return  either  the  data  item  or  a  flag 
indicating  that  no  data  value  was  found  matching  the  key.  It 
is  used  in  conjunction  with  a  call  to  the  FETCHV  module.  It 
is  declared  as  follows: 

1  FV_ARG, 

2  D_NAME  BIT( 64)  , 

2  KEY_VAL  BIT (160), 

2  FOUND  BIT ( 1 ) , 

2  DATA  BIT ( 320 ) ; 

Where  the  elements  of  the  database  are  defined  as  follows: 

D_NAME  -  The  name  of  the  domain/Pset  in  which  to  search. 

KEY_VAL  -  Specifies  a  key  value  on  which  to  search. 

FOUND  -  Specifies  if  an  instance  of  the  Pset  was  found 
which  matched  the  key. 

DATA  -  The  data  value  found. 


3.3.3  Modules  of  the  Nset  Level 

The  Nset  level  is  implemented  via  5  major  modules  and  5 
support  modules.  The  5  major  modules  correspond  to  the  5 
types  of  requests  that  the  External  level  can  make  of  the 
Nset  level.  The  purpose  of  these  modules  is  to  translate 
those  requests  into  requests  to  the  Internal  level  necessary 
to  physically  implement  them.  In  addition,  they  are  respon¬ 
sible  for  translating  the  responses  of  the  Internal  level 
into  appropriate  responses  to  the  External  level.  Finally, 
the  modules  are  responsible  for  Nset  catalogue  maintainance 
where  appropriate.  The  support  modules  are  not  callable  by 
the  External  level  and  are  used  solely  by  the  Nset  modules. 

This  section  will  briefly  describe  the  modules  of  the  Nset 

level . 

3. 3. 3.1  DEFINEN 

This  procedure  accepts  requests  to  define  Nsets,  issues 
the  calls  necessary  to  implement  the  Nset  at  the  Internal 
level,  and  creates  a  NSET_CAT  entry  describing  the  Nset  and 
it's  implementation.  It  relies  on  information  provided  in 
DEF_ARG  to  define  the  Nset.  It  begins  oy  defining  a  Pset  to 
act  as  the  entity  node  for  the  Nset.  This  is  done  via  a  call 

to  DEFINEP  passing  it  the  name  of  the  Nset  as  the  name  of 
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the  Pset  defined.  Then,  for  each  attribute  defined  in 
DEF_ARG  it  defines  2  Bsets  linking  the  attribute  to  the 
entity  node.  The  Bsets  correspond  to  the  entity- attribute 
link  and  the  attribute-entity  link.  The  type  of  Bset  imple¬ 
mented  depends  on  the  key_type  specified  for  the  attribute 
in  DEF_ARG.  The  Bsets  are  defined  via  2  calls  to  DEFINEB, 
one  of  which  specifies  the  equiv  option  so  that  the  Bsets 
share  the  same  pointer  slots.  Finally,  the  DEFINEN  module 
creates  an  NSET_CAT  entry  for  the  Nset  being  defined  and  has 
it  inserted  into  the  NSET_CAT  Nset.  This  is  done  via  a  call 
to  INSERTN,  passing  it  a  copy  of  INSERT_ARG  built  by  DEFINEN 
so  that  it  contains  an  entry  of  NS£T_CAT  in  a  form  that  can 
be  inserted  into  the  NSET_CAT  Nset.  Note,  DEFINEN  presumes 
that  the  names  of  the  attributes  reference  previously 
defined  Psets.  It  is  the  responsibility  of  the  External 
level  to  insure  that  this  is  the  case. 

3. 3. 3. 2  DEFINEV 

This  procedure  accepts  requests  to  define  value  nodes, 
issued  by  the  External  level,  and  issues  the  call  necessary 
to  create  a  Pset  definition  for  the  value  node.  DV_ARG  pro¬ 
vides  it  with  the  name  and  the  key  length  of  the  value  set 
to  be  defined.  DEFINEV  is  very  simple.  All  it  does  is  issue 


a  call  to  DEFINEP,  passing  it  the  information  provided  in 
DV_ARG  together  with  system  default  characteristics  for  the 
structure  of  Psets.  The  system  default  information  speci¬ 
fies  things  like,  link  type  (Hashed),  maximum  length  (40 

char),  position  of  the  key  field,  etc...  .  The  rationale  for 
DEFINEV  acting  as  an  intermediary  between  the  External  and 
the  Internal  level  is  to  entirely  shield  the  External  level 
from  any  knowledge  of  the  Internal  level. 


3. 3. 3. 3  INSERTN 

This  module  accepts  requests  to  insert  instances  of  an 
Nset  into  a  previously  defined  Nset,  validates  the  request, 
and  issues  the  appropriate  commands  to  the  Internal  level  in 
order  to  physically  implement  the  request.  It  relies  on 
INSERT_ARG  to  specify  the  instance  of  the  Nset  to  be 
inserted,  and  on  the  NSET_CAT  entry  for  the  Nset  to  provide 
it  with  the  necessary  information  to  implement  the  request. 
The  logic  of  the  module  is  as  follows..  The  module  first 
calls  BUILDC,  passing  it  the  name  of  the  Nset,  which  returns 
a  copy  of  the  NSET_CAT  entry  for  the  Nset.  It  then  validates 
the  request  by  checking  to  see  that  no  duplicate  values  are 
specified  for  attributes  which  are  defined  as  key  attri¬ 
butes.  Once  the  request  has  been  validated,  a  unique  tag  for 
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the  intity  node  is  generated  via  a  call  to  NAMEGEN,  and 
CREATEP  is  called  passing  it  the  name  of  the  entity  node  as 
the  Pset,  and  the  tag  value  as  the  bit  string.  This  creates 
an  instance  of  the  entity  Pset  to  be  used  to  chain  the 
instances  of  the  attributes.  Then,  for  each  attribute  speci¬ 
fied,  CREATES  is  called  to  create  a  Binary  association  bet¬ 
ween  the  instance  of  the  entity  Pset  and  the  attribute. 
CREATES  is  passed  BSETDOWN  (from  the  NSET_CAT  entry)  as  the 
BSET,  the  Tag  value  as  the  desired  instance  of  the  entity 
Pset,  and  the  attribute  value  specified  in  INSERT_ARG  as  the 
desired  instance  of  the  attribute  Pset.  It  is  the  responsi¬ 
bility  of  the  CREATEB  module  to  create  an  instance  of  the 
attribute  Pset,  if  necessary. 

3 . 3 . 3 . 4  FETCHT 

This  module  accepts  requests  to  retrieve  instances  of  1 
or  more  Nsets  from  the  database,  takes  into  account  any 
restrictions  placed  on  instances  of  the  attributes,  issues 
the  appropriate  commands  to  the  Internal  level  to  retrieve 
the  data  values,  and  formats  the  retrieved  instances  into 
the  data  mcdel  of  the  External  level.  The  retrieval  request 
as  specified  in  RET_ARG  may  involve  several  Nsets,  restric¬ 
tions  on  all  attributes,  and  involve  joins  between  the  vari- 


ous  Nsets.  The  resulting  complexity  means  that  FETCHT  and 
its  associated  support  routines  NJ0IN1,  NRECON,  and  TABN 
represent,  perhaps,  the  most  complicated  part  of  the  system. 
As  a  result,  we  have  provided  flowcharts  in  tables  15  and  16 
which  outline  the  logical  structure  of  the  2  most  compli¬ 
cated  modules,  namely  FETCHT  and  NJOIN1.  The  reader  is  urged 
to  study  those  flowcharts  as  well  as  the  documentation  pro¬ 
vided  in  appendix  2.  In  the  discussion  that  follows  we  will 
discuss  only  the  broad  outlines  of  the  modules. 

FETCHT  is  the  central  module  in  the  retrieval  system. 
It's  Primary  tasks  are  to  1)  create  a  database  which  com¬ 
bines  the  information  contained  in  RET_ARG  and  the  NSET_CAT 
entries  for  the  Nsets  specified  in  the  request,  2)  Oversee 
the  restriction  phase  of  the  retrieval,  3)  call  Njoinl  if 
joins  are  specified  in  the  request,  4)  call  TABN  to  convert 
the  retrieved  instances  of  the  Nsets  into  tabular  form,  and 
e)  build  and  fill  the  database  used  to  return  retrieved 
elements  to  the  External  level. 

Task  1)  is  accomplished  via  multiple  calls  to  the  BUILDC 
module.  Each  Nset  specified  in  the  request  requires  a  call 
to  BUILDC  to  retrieve  its  NSET_CAT  entry.  The  information 
contained  in  the  NSET_CAT  entry  is  combined  with  the 
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RET_INFO  information  specified  in  RET_ARG  to  form  a  tempo¬ 
rary  database  called  NCAT2.  The  objective  here  is  to  create 
one  database  which  contains  both  the  retrieval  information 
(i.e.  restrictions  on  the  attributes,  join  information 
etc. . . )  and  information  on  how  the  Nset  is  implemented. 

The  objective  of  task  2)  is  to  create  a  set  of  entity 

nodes  for  each  Nset  which  satisfy  any  non-join  restrictions 

\ 

placed  on  their  attributes.  This  is  done  in  two  passes.  On 
the  first  pass  the  Nset  is  restricted  on  any  attributes  for 
which  a  value  has  been  specified,  and  which  has  been  defined 
as  being  a  key  attribute.  On  the  The  rationale  for  doing 
this  restriction  first  is  twofold.  First,  it  is  the  most 
limiting  restriction  placed  on  the  Nsets  (i.e.  if  it  is  key 
attribute,  any  given  value  of  that  attribute  can  be  associ¬ 
ated  with  only  one  instance  of  the  Nset).  This  then  greatly 
reduces  the  universe  of  entity  nodes  that  need  be  considered 
in  the  second  pass  or  during  the  join  process.  Second,  since 
the  key  attribute  is  likely  to  be  hashed,  access  is  very 
quick.  On  the  second  pass,  any  non-join  restrictions  not 
taken  into  account  on  passl,  are  taken  into  account.  A  tem¬ 
porary  database  called  NLIST  is  maintained  which  contains 
only  those  entity  nodes  which  satisfy  all  non-join  restric¬ 
tions  placed  on  them.  The  NRECON  module  is  responsible  for 
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maintaining  that  database  given  candidate  entity  nodes 
retrieved  by  FETCHT.  At  the  end  of  this  process  NLIST  con¬ 
tains  only  those  instances  of  the  Nset  nodes  which  satisfied 
all  restrictions  placed  on  them. 

Task  3)  is  performed  largely  by  NJOIN1.  The  task  of 
NJOIN1  is  to  create  an  ordered  stack  which  corresponds  to 
instances  of  the  entity  nodes  which  meet  both  join  and  all 
other  attribute  restrictions.  It  uses  the  entity  nodes  con¬ 
tained  in  NLIST  as  its  universe  of  possible  candidates.  The 
logic  employed  is  shown  in  the  flowchart  for  NJOIN1.  The 
complicating  factor  in  NJOIN1  is  that  more  than  2  Nsets  may 
be  involved.  For  example,  suppose  three  Nsets  are  specified 
in  the  request,  and  Nset2  is  joined  on  Nsetl  and  Nset3  is 
joined  on  Nset2 .  Hence,  Nset3  is  implicitly  joined  on  Nsetl 
as  well.  To  establish  an  instance  of  the  joined  Nsets,  given 
an  instance  of  Nset3,  it  is  first  necessary  to  establish  the 
instances  of  Nset2  which  satisfy  the  join  restrictions 
placed  on  Nset3 .  Given  those  instances  of  Nset2  it  is  then 
necessary  to  restrict  them  to  only  those  which  satisfy  join 
restrictions  on  Nsetl.  At  the  conclusion  of  this  process  a 
given  instance  of  Nset3  may  be  joined  with  X  instances  of 
Nset2  which  in  turn  may  be  joined  with  Y  instances  of  Nsetl. 
This  process  must  be  repeated  for  each  instance  of  the  last 
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Nset.  Since  this  is  a  recursive  process,  NJOIN1  was 
implemented  as  a  recursive  procedure.  It  requires  that  all 
joins  be  specified  as  joins  on  previously  specified  Nsets  in 
NCAT2 .  The  rationale  for  performing  the  ■'oin  logic  after  the 
other  restrict  logic  was  to  limit  the  number  of  entity  nodes 
to  be  examined.  At  the  end  of  this  process  the  stack  created 
by  NJ0IN1  would  contain  only  those  entity  nodes  which  met 
all  join  and  other  restrictions  specified  in  the  request. 

Task  4)  is  to  convert  the  stack  into  a  rectangular  table 
format,  where  each  entry  in  the  table  corresponds  to  an 
instance  of  an  entity  node.  This  is  done  essentially  to 
convert  the  format  of  the  data  from  the  Nset  data  model  to 
that  of  the  External  data  model.  For  example  in  our  earlier 
example,  1  instance  of  Nset  3  was  joined  on  X  instances  of 
Nset  2,  and  through  those  instances  of  Nset  2  on  Y  instances 
of  Nset  1.  The  task  of  TABN  is  to  convert  those  entries  on 
the  stack  into  X*Y  tuples.  It  does  this  as  follows,  it 
fills  the  first  column  in  a  temporary  table  called  TAB  with 
the  elements  from  the  stack  until  the  tuple  id  is  no  longer 
1.  It  then  fills  column  2  with  the  next  element  on  the  stack 
until  column  2  contains  as  many  elements  as  column  1.  It 
then  gets  the  next  element  from  the  stack.  If  its  tuple  id 
indicates  that  it  corresponds  to  a  3rd  Nset  then  the  same 


process  as  given  for  column2  is  repeated.  Otherwise, the 
procedure  returns  to  column  1  and  repeats  the  process  again, 
starting  where  it  left  off. 

The  final  task  is  to  convert  the  table  created  by  TABN 
into  instances  of  the  associated  attributes,  and  place  them 
in  a  database  called  DOM_RET  which  is  passed  back  to  the 
External  level.  This  is  done  by  processing  the  table  created 
by  TABN,  a  row  at  a  time,  and  for  each  entry  fetching  the 
associated  attributes.  Only  those  attributes  for  which  the 
FETCH  flag  in  RET_INFO  is  turned  on  and  which  are  not  the 
same  as  previously  specified  attributes  are  fetched. 

3 . 3 . 3 . 5  FETCHV 

This  module  allows  the  External  level  to  retrieve  a  sin¬ 
gle  instance  of  a  value  set,  i.e.  a  Primitive  set.  The 
External  level  specifies  the  name  of  the  value  set/Pset,  as 
well  as  a  key  value  on  which  to  search 'in  the  FV_ARG  data¬ 
base.  FETCHV  simply  calls  the  FETCH  module,  passing  it  the 
name  of  the  Pset  and  the  key.  When  the  FETCH  module  returns, 
FETCHV  updates  the  FV_ARG  database  accordingly  and  returns. 
The  rationale  for  the  FETCHV  module  is  identical  to  that  as 
for  the  DEFINEV  module. 
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3. 3. 3. 6  BUILDC 


This  is  a  support  module  which  is  called  by  the  other 
modules  in  order  to  retrieve  an  entry  contained  in  the 
NSET_CAT  Nset  and  formats  it  into  the  form  of  the  NCAT 
structure  described  earlier.  It  is  passed  the  name  of  the 
NSET_CAT  entry  to  be  fetched  and  a  copy  of  NCAT.  It  returns 
the  copy  of  NCAT  containing  the  information  contained  in  the 
NSET_CAT  entry  for  the  Nset.  The  logic  is  as  follows:  It 
first  fetchs  the  instance  of  the  Nset  name  from  the  Pset 
NSETNAME  via  a  call  to  FETCH.  This  retrieves  a  bit  string 
which  contains  the  Nset's  name  and  number  of  attributes. 
This  instance  is  used  in  a  call  to  SELECTF  to  establish  the 
associated  instance  of  the  entity  node  of  the  NSET_CAT 
entry.  Once  the  instnace  of  the  entity  node  is  fetched,  it 
in  turn  is  used  in  a  call  to  SELECTF  to  retrieve  the  associ¬ 
ated  instances  of  the  attribute  descriptions  contained  in 
N_ATTR.  The  attribute  descriptions  are  placed  into  the  NCAT 
structure  via  string  overlays. 

3. 3. 3. 7  NINIT 

This  procedure  is  required  to  initialize  the  NSET_CAT  and 
must  be  called  prior  to  any  Nset  definitions.  It  begins  by 
issuing  3  DEFINE?  calls  to  set  up  the  Pset’s  used  to  imple- 
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ment  the  catalogue,  NSETNAME  which  contains  instances  of  the 
Nset  names,  NSETCAT  which  acts  as  the  entity  Pset,  and 
N_ATTR  which  is  used  to  hold  attribute  descriptions.  It  then 
calls  DEFINEB  to  set  up  the  Bsets  linking  the  2  value  Psets 
with  the  entity  Pset.  Finally  it  inserts  the  first  NSET_CAT 
entry  into  the  NSET_CAT,  namely  the  NSET_CAT  entry  describ¬ 
ing  the  NSET_CAT  NSET. 

3.4  SUMMARY  OF  THE  NSET  LEVEL 

This  concludes  our  discussion  of  the  Nset  or  Conceptual 
level  of  INFOSAM.  Several  points  are  worth  noting  in  sum¬ 
mary.  First,  the  Nset  level  effectively  shields  the  External 
level  from  the  Internal  level,  while  at  the  same  time  making 
extensive  use  of  the  functions  provided  at  the  Internal 
level  to  implement  the  physical  representation  of  the  Exter¬ 
nal  data  model.  Second,  the  functionality  of  the  Nset  level 
is  such  that  the  External  level,  which  implements  a  rela¬ 
tional  data  model  essentially  becomes  an  interface  between 
the  user  and  the  Conceptual  level.  As  we  will  see  in  our 
discussion  of  the  External  level,  much  of  the  work  of  the 
External  level  is  to  create  the  required  communication  data¬ 
bases  based  on  requests  from  the  user.  Third,  we  chose  to 
implement  a  very  simple  form  of  the  Nset  data  model.  This 
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implementation  highlights  2  points  associated  with  that.  The 
first  is  that  despite  it's  simplicity  it  provides  a  powerful 
data  model  for  the  External  level.  The  second  is  that  des¬ 
pite  its  simplicity,  its  implementation  is  far  from  trivial, 
particularly  in  the  area  of  retrieval.  An  Nset  level  as 
envisioned  by  Hsu<Hsu>,  which  is  far  more  general  than  the 
one  implemented  here,  would  be  a  challenging  task  indeed. 

3.5  THE  EXTERNAL  LEVEL 

The  External  level  is  the  highest  level  in  INFOSAM,  and 
as  such,  sits  between  the  user  and  the  Nset  level.  This  is 
somewhat  different  from  the  structure  envisioned  by  Madnick 
<Madnick79>.  In  his  orginal  design  there  were  several  levels 
between  the  External  level  and  the  Nset  or  N-ary  level,  for 
example,  a  data  validity  level  and  a  virtual  information 
level . Conceptually,  INFOSAM  could  incorporate  those  levels, 
however,  in  this  implementation  we  did  not  implement  them. 
The  External  level  is  designed  to  provide  the  user  with  a 
simple  interactive  Relational  interface  to  the  system.  It 
allows  the  user  to  define  his  database  in  terms  of  the  rela¬ 
tional  data  model,  and  it  supports  relational  operations  or 

queries  against  the  database  so  defined.  The  External  level 
accomplishes  this  by  mapping  the  user's  v:ew,  i.e. 


a  rela- 


tional  view,  to  the  conceptual  data  model  of  the  Nset  level, 
and  then  by  issuing  the  calls  to  the  Nset  level  necessary  to 
implement  his  view  at  the  Nset  level.  As  a  result,  the  user 
is  effectively  shielded  from  both  the  conceptual  and  physi¬ 
cal  implementation  of  his  database. 

3.5.1  Logical  Overview  of  External  Level 

The  conceptual  data  model  of  the  External  level  and, 
hence  the  data  model  visible  to  the  user,  is  that  of 
domains,  relations,  and  views.  Since,  the  concept  of 
domains  and  relations  are  probably  familiar  to  the  reader, 
they  will  not  be  discussed  here.  The  concept  of  a  view,  how¬ 
ever,  may  not  be  so  familar.  A  view  is  defined  here  as  the 
collection  of  relations  that  a  given  user  sees  or  to  which 
he  has  access.  <Date,  Hsu  >  A  user  may  only  issue  rela¬ 
tional  operators  (i.e.  join,  pro ject, select,  load  and  print) 
against  relations  which  are  within, or  derived  from  his  view. 
Each  view  has  a  unique  ID  which  the  user  must  specify  before 
he  can  access  relations  within  that  view.  Note,  a  relation 
can  appear  in  more  than  1  view.  Thus,  the  concept  of  a  view 
provides  a  measure  of  security  control. 

In  order  to  implement  actions  expressed  in  terms  of  the 
relational  data  model,  the  External  level  must  map  those 


actions  to  equivalent  actions  on  the  Nset  representation  of 
the  relation,  and  call  the  appropriate  Nset  level  routines. 


This  mapping  process  is  very  straightforward,  because  as 
mentioned  earlier,  a  relation  can  be  viewed  as  a  restricted 
form  of  an  Nset.  The  domains  of  the  relation  correspond  to 
value  nodes,  the  relation  to  the  Entity  set,  and  a  tuple  to 
an  instance  of  an  Nset.  Thus,  a  relation  can  be  easily 
implemented  as  an  Nset.  When  a  user  wishs  to  define  a  rela¬ 
tion,  the  External  level  translates  that  request  into  a  call 
to  DEFINEN,  passing  it  the  name  of  the  relation  as  the  name 
of  the  Nset  being  defined,  and  the  names  of  the  domains  as 
the  associated  attributes.  An  insertion  into  an  existing 
relation  is  translated  into  an  INSERTN  request,  passing  it 
the  name  of  the  corresponding  Nset,  and  the  values  for  the 
attributes. 

Relational  operations  such  as  joins,  projects  and  selects 
are  also  easily  mapped  onto  operations  on  the  Nset  model. 
Conceptually,  a  SELECT  can  be  viewed  as  a  retrieval  opera¬ 
tion  on  an  Nset  where  instances  of  the  Nset  are  restricted 
on  the  value  of  some  attribute.  A  PROJECT  is  a  retrieval 
request  where  all  instances  of  an  Nset  are  to  be  fetched  but 
only  the  values  for  certain  attributes  are  to  be  displayed. 
Finally,  a  JOIN  operation  is  a  retrieval  request  where  the 
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request  spans  2  or  more  Nsets  which  share  1  or  more  common 
attributes.  Here,  it  is  also  necessary  to  normalize  the 
returned  instances  to  reflect  the  rectangular  structure  of 
the  relational  model.  For  example,  at  the  Nset  level  1 
instance  of  Nset2  may  be  joined  with  3  instances  of  Nsetl, 
at  the  External  level  this  represents  3  tuples  of  the  rela¬ 
tion  created  via  the  join.  Conceptually  then,  each  rela¬ 
tional  operation  could  be  implemented  by  issuing  a  call  to 
FETCHT,  and  passing  it  a  copy  of  RET_ARG  which  contained  the 
necessary  retrieval  information. 

In  fact,  the  implementation  of  RET_ARG  and  FETCHT  is  such 
that  it  allows  the  External  level  to  implement  the  concept 
of  virtual  commands  with  regard  to  relational  operations 
( see<Astrahan76>  for  a  discussion  of  a  similar  approach). 
When  a  user  specifies  the  view  he  wishes  to  use,  a  temporary 
data  structure  is  created  which  is  essentially  an  array 
where  each  element  in  the  array  is  equivalent  to  a  copy  of 
RET_ARG.  For  each  relation  in  his  view,  an  element  in  the 
temporary  structure  is  set  up  so  that  it  is  identical  to  the 
copy  of  RET_ARG  required  to  fetch  the  Nset  representation  of 
the  relation  ..’hen  a  user  issues  a  relational  operation  on  a 
relation  in  his  view,  the  appropriate  entry  in  the  temporary 
structure  is  updated  to  reflect  the  implications  of  his 
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request.  If  a  user  defines  a  temporary  relation  as  the 
result  of  relational  operations  on  other  relations  in  his 
view,  a  new  entry  is  created  in  the  structure,  such  that  if 
it  were  passed  to  FETCHT,  FETCHT  would  retrieve  the  appro¬ 
priate  elements  given  the  restrictions  specified.  The  Nset 
level  isn't  called  on  to  retrieve  data  until  the  user  issues 
a  PRINT  command,  hence,  the  notion  of  virtual  commands.  When 
a  user  specifies  a  relational  operation,  it  is  as  if  the 
operation  was  really  performed,  but  in  fact  only  a  virtual 
version  of  the  operation  is  performed. 

The  rationale  for  this  approach  is  severalfold.  From  a 
user's  viewpoint  it  gives  the  appearance  of  a  faster  res¬ 
ponse  time  since  the  actual  consequences  of  a  relational 
operation  can  be  put  off  until  the  last  possible  moment.  In 
fact,  the  real  response  time  may  be  faster,  since  the 
sequence  of  operations  may  be  such  that  relatively  few  data 
items  ultimately  need  to  be  fetched.  From  a  system  stand¬ 
point  it  is  also  advantageous  since  it  reduces  the  number 
of  calls  to  the  Nset  level,  it  eliminates  the  need  to  manage 
the  data  returned  as  a  result  of  an  operation  which  is  part 
of  a  sequence  of  operations,  and  the  need  for  modules  at  the 
External  level  to  handle  relational  operations  on  the  data 
returned  as  the  result  of  prior  relational  operations.  If 
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the  system  were  multi-threaded,  there  would  be  an  additional 
advantage.  If  data  were  retrieved  after  each  operation,  the 
Nset's  involved  would  have  to  be  locked  at  the  time  the  user 
accessed  his  view,  since  they  might  be  modified  between  one 
request  and  the  next.  In  this  approach  the  Nset's  would  only 
have  to  be  locked  while  the  FETCHT  module  was  being  called 
on  to  retrieve  the  actual  data  items. 

Since  the  External  level  acts  as  an  interface  to  the 
User,  a  certain  degree  of  attention  was  paid  to  the  quality 
of  the  interface.  In  particular,  the  user  interface  was 
designed  to  be  'user  friendly'  yet  able  to  adapt  to  the 
increased  sophistication  of  the  user  as  he  becomes  more 
familar  with  the  system.  Thus,  the  routines  were  set  up  so 
that  a  user  can  specify  all  or  part  of  a  command  and  be 
prompted  for  the  rest.  For  example,  a  new  user  may  need  to 
be  prompted  for  each  item  in  a  command,  while  a  sophisti¬ 
cated  user  doesn't  need  the  prompts,  and  in  fact  would  prob¬ 
ably  find  them  a  hinderance.  If  a  user  makes  an  error,  rang¬ 
ing  from  a  syntax  error  to  a  data  error  (i.e.  enters  a 
character  where  a  number  is  required),  the  routines  are  set 
up  so  that  only  the  offending  element  need  be  re-entered. 
The  routines  are  also  responsible  for  checking  the  validity 
of  requests.  For  example,  that  relations  are  only  defined 


over  previously  defined  domains,  or  that  views  contain  only 
previously  defined  relations,  or  that  the  user  doesn't  issue 
a  request  to  define  a  domain,  relation  or  view  which  is  pre¬ 
viously  defined.  As  mentioned  earlier,  it  also  performs  sim¬ 
ple  data  validity  checks.  When  a  domain  is  defined,  it's 
characteristics  ( type, length,  minimum  and  maximum  value  if  a 
number)  must  also  be  specified.  During  data  entry,  data 
being  entered  is  checked  against  the  characteristics  speci¬ 
fied  for  the  domain.  If  it  doesn't  agree,  an  error  message 
is  printed  out  and  the  data  value  must  be  re-entered.  A 
sample  terminal  session  is  provided  in  appendix  I. 

3.5.2  Databases  of  the  External  Level 

The  External  level  makes  use  of  3  types  of  databases.  The 
first  type  of  database  represents  the  catalogues  used  by  the 
External  level  to  store  information  regarding  domains,  rela¬ 
tions  and  views  defined  by  the  user.  These  catalogues  are 
called  DTABLE,  RTABLE  and  VTA3LE  respectively  Just  as  the 
Internal  and  Nset  levels'  catalogues  were  viewed  as  being 
implemented  within  the  context  of  the  level's  data  model,  so 
too  the  External  level  views  it's  catalogues  as  relations. 
DTABLE  is  viewed  as  a  relation  containing  2  domains;  DNAME, 
which  contains  the  names  of  all  domains  defined  by  the  user 
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and,  DATTR  which  contains  the  attributes  of  the  domains. 
RTABLE  is  also  viewed  as  a  relation  containing  2  domains; 
RNAME,  which  contains  the  names  of  all  the  relations  defined 
by  the  user,  and  DNAME  which  is  the  same  as  DNAME  in  DTABLE. 
VTABLE  also  contains  2  domains,  one  of  which  is  also  shared 
with  RTABLE;  RNAME  as  defined  before,  and  V_ID  which  con¬ 
tains  the  IDs  of  all  views  identified  in  the  system.  These 
relations  are  implemented  as  Nsets  via  a  calls  to  the  Nset 
level.  This  is  illustrated  in  Table  17  The  External  level 
maintains  and  manipulates  these  relations  using  the  same 
operators  it  uses  to  implement  user  defined  relations.  For 
example,  when  a  user  issues  a  GETVIEW  command  (which  ret¬ 
rieves  the  names  of  all  relations  associated  with  a  given 
view)  the  External  level  SELECTS  VTABLE  on  V_ID  =  ID  as  spe¬ 
cified  by  user,  JOINS  the  resulting  relation  with  RTABLE  on 
the  RNAME  domain, and  projects  the  resulting  relation  on 
RNAME, and  V_ID.  Note  that  this  is  all  done  via  1  call  to  the 
Nset  level. 


3 . 5 . 2 . 1  VTABLE 

A  tuple  within  DTABLE  is  declared  as  follows: 
1  DTABLE, 

2  DNAME  bit (64), 

2  DATTR, 
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Mapping  of  External  Level  Catalogues  to  Nset  Level 
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3  TYPE  BIT(8) , 

3  TLEN  BIT(16), 

3  TMIN  BIT( 16) , 

3  TMAX  BIT( 16  )  ; 

Where  the  fields  are  defined  as  follows: 

DNAME  -  The  name  of  the  Domain 

DATTR  -  Contains  a  bit  string  which  contains  the  follow¬ 
ing  attributes  for  the  domain: 

TYPE  -  Specifies  if  the  data  type  is  numeric  or  charac¬ 
ter. 

TLEN  -  Specifies  the  maximum  length  for  a  data  element  in 
this  domain. 

TMIN  -  If  the  type  is  numeric  this  field  contains  the 
minimum  permissable  value  for  an  element  of  this  domain. 

TMAX  -  If  the  type  is  numeric,  then  this  element  contains 
the  maximum  permissable  value.  DTABLE  is  implemented  as  an 
Nset  consisting  of  2  attributes,  DNAME  and  DATTR. 
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3 . 5 . 2 . 2  RTABLE 


A  tuple  within  RTABLE  is  declared  as  follows: 

1  RTABLE, 

2  DNAME  BIT( 64)  , 

2  RNAME  BIT (64) ; 

The  meaning  of  the  fields  should  be  clear.  Note,  however, 
that  a  relation  of  n  domains  requires  n  tuples  in  RTABLE. 
RTABLE  is  implemented  as  an  Nset  consisting  of  2  attributes, 
DNAME  and  RNAME. 

3 . 5 . 2 . 3  VTABLE 

A. tuple  in  VTABLE  is  declared  as  follows: 

1  VTABLE, 

2  RNAME  BIT( 64) , 

2  V_ID  BIT( 64 ) ; 

The  meaning  of  the  fields  should  also  be  clear.  Note, too, 
that  a  view  which  contains  n  relations  requires  n  tuples  in 
VTABLE.  VTABLE  is  implemented  as  an  Nset  consisting  of  2 
attributes,  RNAME  and  V_ID. 

3. 5. 2. 4  The  T1_ARG  Database 

T1_ARG  represents  the  second  type  of  database  used  by  the 
External  level.  It  is  the  temporary  database  through  which 


the  External  level  implements  its  virtual  relational  opera¬ 
tions.  It  is  declared  as  follows: 

1  T1_ARG{ 20 )  EXTERNAL, 

2  N1  BIT( 8 ) , 

2  Cl ( 5 )  BIT( 64) , 

2  T2(20) , 

3  N2  BIT( 8 ) , 

3  C2  BIT( 64) , 

3  T3 , 

4  N3  BIT ( 8 ) , 

4  N4  BIT ( 8 ) , 

4  C3  BIT( 160) ; 

Which  is  functionally  equivalent  to  : 

1  T1_ARG( 20 )  EXTERNAL, 

2  VIRT_REL  LIKE  RET_ARG ; 

When  the  GETVIEW  command  is  issued,  the  GETVIEW  module  via 
the  logic  described  earlier,  fetchs  the  RTABLE  tuples  for 
the  relations  specified  in  the  user's  view  and  loads  T1_ARG. 
At  that  point  ,r’l_ARG  will  contain  1  e^try  per  relation,  and 
the  entry  can  be  used  in  the  FETCKT  call  to  retrieve  a  rela¬ 
tion.  As  a  user  issues  relational  operations,  the  modules 
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responsible  for  implementing  them  update  the  appropriate 
entries  in  T1_ARG  to  reflect  the  operations.  If  the  user 
defines  a  temporary  relation  as  the  result  of  a  relational 
operation  on  1  or  more  previously  defined  relations  in 
T1_ARG,  a  new  entry  is  created  in  T1_ARG  which  reflects  both 
the  implications  of  the  relational  operation,  as  well  as  any 

previous  operations  on  the  relations.  When  the  PRINT  command 
is  issued,  the  PRINT  module  finds  the  appropriate  entry  for 
the  relation  in  T1_ARG,  and  calls  FETCHT  passing  it  a  copy 
of  the  entry.  T1_ARG  is  overwritten  whenever  a  new  GETVIEW 
command  is  issued,  and  is  lost  in  any  event  at  the  end  of 
the  session.  Note,  unlike  relations  which  are  defined  using 
the  DEFREL  command,  there  is  no  Nset  definition  for  tempo¬ 
rary  relations.  table  18  illustrates  a  how  Tl_Arg  is  used 
to  map  a  sequence  of  commands. 


3. 5. 2. 5  Communication  Databases 

The  final  type  of  databases  used  by  the  External  Level 
are  databases  used  to  communicate  with  the  Nset  level.  These 
include  INSER'r_ ARG,  DEF_ARG,  RET_ARG,  ny_ARG,  FV_ARG,  and 
DOM_RET.  Since  these  databases  were  described  previously  in 
our  discussion  of  the  Nset  level,  they  will  not  be  discussed 
here. 
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TABLE  18 

Example  Use  of  T1_ARG 
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3.5.3  The  Modules  of  the  External  Level 

The  External  level  is  composed  of  16  modules,  as  illus¬ 
trated  in  Table  19  .  With  the  exception  of  LEX  and  LEX2  each 
module  corresponds  to  a  command  issued  by  the  user  and  is 
responsible  for  implementing  that  command.  When  the  user 
enters  the  system  he  is  under  the  control  of  the  SAM  module, 
and  is  in  the  IFS  environment.  In  this  environment  he  can 
issue  2  commands,  DEFINE  and  QUERY.  These  commands  call  the 
DEFINE  and  QUERY  modules  respectively.  The  DEFINE  module 
sets  up  the  DEFINE  environment,  in  which  the  user  may  define 
domains,  relations  and  views  via  calls  to  DEFDOM,  DEFREL  and 
DEFVIEW  respectively.  The  QUERY  module  sets  up  the  QUERY 
environment  which,  in  fact,  has  2  environments,  the  LOAD 
environment  and  the  QUERY  environment.  The  LOAD  environment 
allows  a  user  to  enter  data  into  a  specified  relation,  wher¬ 
eas  the  QUERY  environment  allows  a  user  to  examine  his  data¬ 
base  and  issue  relational  operations  against  it.  To  move 
from  one  environment  to  another,  it  is  necessary  to  return 
to  the  level  which  contains  that  environment,  and  then  issue 
the  appropriate  command  to  invoke  the  environment.  A  null 
line  will  always  return  the  user  to  the  next  higher  level. 

In  this  section  we  will  briefly  outline  the  purpose  of 
each  module  and  discuss  its  structure. 
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TABLE  19 


3 . 5 . 3 . 1  SAM 

This  is  the  entry  point  for  the  INFOSAM  system  and  repre¬ 
sents  the  outermost  environment  of  the  system.  It  has  2 
roles.  The  first  is  to  call  NINIT  which  is  required  to  ini¬ 
tialize  the  Nset  level.  The  second  is  to  prompt  the  user  to 
enter  either  the  QUERY  or  DEFINE  environments.  If  the  user 
enters  a  null  line  at  this  level  the  procedure  ends. 
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3. 5. 3. 2  DEFINE 


This  module  implements  the  DEFINE  environment  in  which  a 
user  may  define  his  database.  The  DEFINE  module  has  2  major 
tasks.  The  first  task  is  to  define  the  External  level  data¬ 
bases,  RTABLE,  DTABLE,  and  VTABLE  if  they  have  not  already 
been  defined.  This  is  done  by  multiple  calls  to  DEFINEV  in 
order  to  define  the  domains  of  the  relations  ( 
DNAME , DATTR , RNAME ,  and  ID),  and  then  3  calls  to  DEFINEN  to 
define  the  Nset  representations  of  the  relations.  The  second 
task  is  to  prompt  the  user  for  a  valid  DEFINE  command  and 
dispatch  the  appropriate  routine.  The  support  routine  LEX  is 
called  to  parse  the  user's  response,  and  the  routines  are 
dispatched  based  on  the  key  word  starting  the  input  string. 
If  a  user  returns  a  null  line,  DEFINE  returns  to  the  IFS 
level.  When  the  define  modules  (DEFDOM, DEFREL  or  DEFVIEW) 
return  control  to  the  DEFINE  module,  the  DEFINE  module 
prompts  the  user  for  a  new  command. 

3 . 5 . 3 . 3  DEFDOM 

This  module  processes  the  DOMAIN  command  which  is  used 
todefine  a  domain.  The  form  of  the  DOMAIN  command  is  as 
follows : 

DOMAIN  <dname>  <a_attr>  where 

<d_attr>::=  C  <Len>  |  N  <Len>  <Min  value>  <max  value 


Basically  this  requires  it  to  perform  4  tasks.  1)  If  the 
user  has  not  specified  all  the  information  necessary  to 
process  the  request,  the  DEFDOM  module  must  prompt  the  user 
for  the  additional  information.  2)  It  must  verify  that  no 
other  domain  has  been  defined  with  the  same  name.  This  is 
done  via  a  call  to  FETCHV  and  requesting  that  it  search  the 
DNAME  domain  for  an  occurence  of  the  name.  If  it  is  found, 
an  error  message  is  printed,  and  no  further  action  is  taken. 
Otherwise,  the  definition  continues.  3)  The  next  task  is  to 
format  and  insert  the  appropriate  entry  into  DTABLE.  This 
requires  it  to  format  the  DATTR  entry  to  reflect  the  domain 
characteristics,  the  DNAME  entry  to  contain  the  name  of  the 
domain,  and  then  set  up  the  necessary  call  to  INSERTN.  4) 
The  final  task  is  to  call  DEFINEV,  passing  it  the  name  of 
the  domain,  so  that  the  Nset  level  can  issue  the  call  neces¬ 
sary  to  define  a  Pset  corresponding  to  that  domain. 

3 . 5 . 3 . 4  DEFREL 

This  module  is  responsible  for  processing  the  RELATION 
command  which  allows  a  user  to  define  a  relation.  The  for¬ 
mat  of  this  command  is  as  follows: 

RELATION  <rname>  <dname  l>....<dname  i> 
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This  requires  DEFREL  to  accomplish  3  tasks,  in  addition  to 
the  task  of  prompting  the  user  for  any  information  required 
but  not  entered  with  the  command.  The  first  task  is  to  vali¬ 
date  the  request.  This  takes  the  form  of  2  checks.  The  first 
check  is  to  verify  that  the  relation  name  has  not  already 
been  used.  This  is  done  via  a  call  to  FETCHV  and  having  it 
search  the  RNAME  domain.  The  second  check  is  to  insure  that 
all  domains  specified  are  indeed  defined  in  the  system.  This 
is  accomplished  via  multiple  calls  to  FETCHV,  this  time  hav¬ 
ing  it  search  within  DNAME.  If  a  domain  name  is  not  found  in 
DNAME,  the  user  is  prompted  to  enter  a  new  name.  Once  the 
request  has  been  validated,  the  next  task  is  to  insert  the 
relation  definition  into  RTABLE.  This  is  accomplished  by 
multiple  calls  to  INSERTN,  passing  it,  via  INSERT_ARG  the 
relation  name  and  the  domain  name.  Each  domain  in  the  rela¬ 
tion  will  necessitate  a  call  to  INSERTN.  The  final  task  is 
to  format  DEF_ARG  to  correspond  to  the  relation  being 
defined,  and  then  to  call  DEFINEN  in  order  to  create  the 
Nset  definition  for  the  relation. 

3. 5. 3. 5  DEFVIEW 

This  module  is  responsible  processing  the  VIEW  command 
which  allows  a  user  to  define  a  view.  The  command  form  is: 

VIEW  <View  Id>  <rnamel>  ...<rname  i> 
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The  tasks  of  DEFVIEW  are  very  similar  to  those  of  DEFREL, 
except  that  no  Nset  definition  is  required.  It  must  first 
validate  the  request.  This  consists  of  checking  for  the 
existence  of  a  previously  defined  view  with  the  same  ID, 
once  again  accomplished  via  FETCHV  except  that  it  is 
requested  to  serach  in  the  ID  domain.  In  addition,  DEFVIEW 
must  check  for  the  existence  of  the  relations  specified  in 
the  request.  This  is  analogous  to  the  checking  for  domains 
in  DEFREL,  except  that  the  RNAME  domain  is  checked.  If  the 
request  is  validated,  then  the  view  definition  is  inserted 
into  VTABLE  via  multiple  calls  to  INSERTN,  where  each  call 
inserts  a  tuple  with  a  different  relation  name. 

3 . 5 . 3 . 6  QUERY 

This  module  is  responsible  for  implementing  the  QUERY 

environment.  It  is  called  by  issuing  the  QUERY  command  when 
at  the  IFS  level.  Once  in  the  query  environment,  the  user 
remains  in  that-  environment  until  he  enters  a  null  line 
while  interacting  with  the  QUERY  module,  which  returns  him 
to  the  IFS  environment.  The  task  of  the  QUERY  module  is  to 
prompt  the  user  for  a  valid  QUERY  command,  call  LEX  to  parse 
the  response,  and  then  if  valid,  dispatch  the  appropriate 
query  routine.  The  dispatching  is  done  by  comparing  the  key 
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word  in  the  user's  response  to  an  operator  table,  and  call¬ 
ing  the  routine  that  matches.  The  logic  is  such  that  the 
user  may  also  enter  a  2  letter  synonym  for  the  command. 


3. 5. 3. 7  GETVIEW 

This  module  processes  the  GETVIEW  or  GV  command  which 
allows  a  user  to  access  relations  within  a  previously 
defined  view.  The  command  form  is: 

GV  <View  Id> 

It  has  3  basic  tasks.  The  first  task,  as  always,  is  request 
validation.  In  this  case  it  must  check  for  the  existence  of 
the  view  id  specified  in  the  request.  This  is  done  via  a 
call  to  FETCHV  to  search  the  ID  domain.  If  the  ID  is  in  fact 
found,  the  second  task  is  to  fetch  the  relation  definitions 
(i.e.  the  RTA3LE  tuples)  of  relations  within  that  view.  This 
is  done  via  a  call  to  FETCHT,  passing  it  a  copy  of  RET_ARG 
which  in  effect  specifies  that  VTABLE  is  to  be  selected  on 
the  view  ID,  joined  with  RTABLE  on  RNAME,  and  the  result 
projected  over  Dname  and  Rname.  The  third  task  is  to  build 
T1_ARG  based  on  the  elements  returned  by  FETCHT.  As  the 
reader  will  remember,  each  entry  in  T1 _ARG  corresponds  to  a 
copy  of  RET_ARG  which  if  passed  to  FETCHT  would  retrieve  the 
contents  of  the  relation.  Hence,  GETVIEW  must  fill  an  entry 
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of  T1  ARG  for  each  relation  name  returned  as  a  result  of  the 


retrieval  request.  In  addition,  GETVIEW  creates  a  table 
which  contains  the  names  of  the  relations  contained  in  the 
view. 

3. 5. 3. 8  SHVIEW 

This  module  is  responsible  for  processing  the  SHVIEW  or 
SV  command.  This  command  allows  a  user  to  display  the  names 
of  the  relations  contained  in  his  current  view.  This  module 
simply  takes  the  table  created  by  GETVIEW  and  prints  it  out. 
The  command  form  is: 

SV 


3 . 5 . 3 . 9  SHREL 

This  module  processes  the  the  SHREL  or  SR  command  which 
allows  a  user  to  see  the  domains  and  domain  attributes  of  a 
relation  defined  in  the  current  view.  The  syntax  is: 

SR  <rname> 

The  module  works  in  the  following  manner.  It  first  verifies 
the  request  by  checking  the  relation  name  specified  against 
the  names  of  the  relations  in  the  current  view.  This  is  done 
via  the  table  created  by  GETVIEW.  If  the  relation  name  is 
found  then  the  corresponding  entry  in  T1_ARG  is  located.  For 
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each  domain  in  the  relation,  FETCHT  is  called,  passing  it  a 
copy  of  RET_ARG  which  is  set  up  to  select  DTABLE  on  DNAME  = 
the  domain  name,  and  project  the  result  on  DATTR.  This 
returns  the  attributes  of  the  domain  to  SHREL  which  formats 
the  attributes  and  prints  them  out  along  with  the  domain 
name . 

3.5.3.10  SELECT 

This  procedure  is  responsible  for  processing  the  SELECT 
command.  The  form  of  the  SELECT  command  is  : 

SELECT  <  Rnamel>  ON  <dnamel>  =  <valuel>, . . . 

<dname  i>  =  <value  i>  GIVING  <rname2> 

As  described  earlier  this  command  is  translated  into  a  vir¬ 
tual  operation  on  T1_ARG,  and  no  data  retrieval  is  done 
until  a  PRINT  command  is  issued.  The  objective  of  the  SELECT 
module  is  to  create  a  new  entry  in  T1_ARG  which  contains  the 
information  contained  in  the  T1_ARG  entry  for  Rnamel  updated 
to  reflect  the  select  restriction  on  dname .  Its  first  task 
is  to  verify  that  Rnamel  exists  in  the  current  view.  This  is 
done  by  searching  the  REL  table  created  by  GETVIEW  when  the 
current  view  was  loaded.  If  the  relation  is  found,  then  it's 
corresponding  entry  in  T1_ARG  is  found,  and  copied  into  the 
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next  available  entry  in  T1_ARG.  Then,  for  each  restriction 
specified  in  the  request,  the  module  locates  the  correspond¬ 
ing  domain  description  in  the  T1_ARG  entry  for  the  new  rela¬ 
tion,  and  checks  to  see  if  it  has  an  existing  restriction 
placed  on  its  value.  If  so,  an  error  message  is  printed  out. 
If  not, the  value  specified  in  the  request  is  inserted  into 

the  appropriate  element  in  the  entry,  i.e.  into 
T1_ARG( i ) . RET_INEO . VALUE ( j , k) ,  where  i  =  the  index  of  the 
rname2  entry  in  T1_ARG,  j=  Nset  which  contains  domain,  and 
k=  index  of  domain  within  the  Nset.  If  the  new  domain  is 
not  found  an  error  message  is  printed  out.  The  final  task  is 
to  create  a  new  entry  in  REL  which  contains  the  name  of  the 
new  relation, rname2,  and  its  index  in  the  T1_ARG  database. 
If  rname2=rnamel  then  REL  is  not  updated. 

3.5.3.11  PROJECT 

This  module  is  responsible  for  the  virtual  processing  of 
the  PROJECT  command.  The  form  of  the  command  is  : 

PROJECT  <rnamel>  ON  <dname 1 >,..., <dname  i>  GIVING  <rname2> 

V 

The  logic  of  the  project  module  is  virtually  identical  to 
that  of  the  SELECT  routine  except  chat  instead  of  placing 
the  restrict  value  into  the  appropriate  element  in  the 
T1_ARG  entry  for  the  new  relation,  the  module  sets  the 
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appropriate  elements  in  T1_ARG  to  indicate  that  they  are  not 
to  be  retrieved.  That  is,  the  T1_ARG( i ) . RET_INFO. FETCH ( j , k) 
fields  of  domains  not  specified  in  the  command  are  set  to 
indicate  that  those  domains  within  that  relation  are  not  to 
be  fetched. 

3.5.3.12  JOIN 

This  module  is  responsible  for  the  virtual  implementation 
of  the  JOIN  command.  The  format  of  this  command  is  as  fol¬ 
lows: 

JOIN  <rnamel>  AND  <rname2>  ON  <dnamel> , . . <dname  i>  GIVING  <rname3> 
The  logic  of  this  module  is  also  very  similar  to  that  of 
PROJECT  and  SELECT  except  that  it  is  somewhat  more  complex. 

In  particular, it  must  check  that  the  domain(s)  on  which  the 
relations  are  to  be  joined  are  logically  in  the  relations. 

For  example,  if  dnamel  is  physically  in  the  Nset  from  which 
rnamel  is  derived,  but  as  the  result  of  a  previous  PROJECT 
command,  is  not  logically  in  rnamel,  the  join  on  dnamel  is 
meaningless.  Hence,  the  JOIN  module  checks  for  that  condi¬ 
tion  and  prints  an  error  message  if  any  of  the  domans  speci¬ 
fied  in  the  command  are  not  physically  or  logically  in 
rnamel  or  rname2 .  The  second  difference  is  that  the  fields 
which  are  updated  in  the  T1_ARG  entry  for  rname3  are  the 


T1_ARG( i ) . RET_INFO. SAME( j , k)  fields,  where  j  and  k  specify 
the  Nset  and  attribute  pairs  which  correspond  to  the  domains 
in  rname2  on  which  the  join  is  to  be  made.  These  fields  must 
be  updated  to  contain  the  index  to  the  corresponding  domains 
in  rnamel.  In  addition,  any  RET_INFO . SAME  fields  in  the 
T1_ENTRY  for  rname3  must  be  updated  to  reflect  the  new  posi¬ 
tion  of  the  Nset  definitions.  For  example,  rname2  may  have 
been  created  as  a  result  of  a  join  on  2  other  relations.  To 
implement  that  join,  the  SAME  fields  for  the  common  domains 
in  the  second  relation  would  have  been  updated  to  specify 
the  matching  domains  in  the  first  relation  (i.e.  the  SAME 
fields  would  appear  as  'OOOlxxxx'b  where  xxxx  corresponds  to 
the  domain's  index  in  the  first  Nset).  However,  when  rnamel 
and  rname2  are  joined,  the  T1_ARG  entry  for  the  result  will 
contain  arguments  for  the  Nset(s)  which  make  up  rnamel  and 
for  the  2  Nsets  which  make  up  rname2 .  Hence,  the  SAME  fields 
for  the  domains  which  orginally  implemented  the  join  in  the 
definition  of  rname2  must  be  changed  to 'reflect  that  -he  1st 
Nset  of  the  rname2  component  of  rname3  is  now  the  2  Nset 
specified  in  rname3,  i.e.  the  SAME  fields  must  be  changed  to 
1 OOlOxxxx’ b. 


146 


3.5.3.13  PRINT 


This  module  is  responsible  for  processing  the  PRINT  com¬ 
mand  which  allows  the  user  to  display  the  contents  of  any 
relation  defined  in  his  view,  permanent  or  temporary.  The 
format  of  the  Print  command  is  as  follows: 

PRINT  <rname> 

The  PRINT  module  has  3  basic  tasks.  The  first  task  is  to 
retrieve  formatting  information  for  each  domain  specified  in 
the  T1_ARG  entry  for  the  relation  for  which  data  is  to  be 
fetched.  This  is  done  by  going  through  the  domains  specified 
in  the  T1_ARG  entry  for  the  relation,  checking  the  FETCH 
field,  and  assuming  it  indicates  retrieval,  calling  FETCHT 
to  select  the  DTABLE  on  the  domain  name  and  to  return  the 
DNAME  -  DATTR  tuple.  The  PRINT  module  then  extracts  the  max¬ 
imum  length  for  the  domain  and  places  it  in  an  array  which 
is  used  to  format  the  output  line.  The  2nd  task  is  to  ret¬ 
rieve  the  data  elements  contained  in  the  relation  as  logi¬ 
cally  defined  in  the  T1_ARG  entry  for  the  relation.  This  is 
accomplished  by  calling  the  FETCHT  module  and  passing  it  the 
T1_ARG  entry  for  the  relation.  FETCHT  interprets  T1_ARG  and 
returns  a  stack  of  fixed  length  bit  strings  which  correspond 
to  the  data  elements  found  which  met  the  restrictions  speci¬ 
fied  in  the  T1_ARG  entry.  The  final  task  is  to  print  out 
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the  retrieved  data  elements.  This  is  done  a  tuple  at  a  time. 
For  example,  if  the  relation  contains  n  domains,  the  PRINT 
module  takes  the  first  n  elements  on  the  stack,  uses  the 
formatting  information  retrieved  earlier  to  extract  the 
relevant  portion  of  each  element,  concatenates  the  resulting 
strings  and  prints  them  out.  This  continues  until  the  stack 
is  empty. 

3.5.3.14  LOAD 

This  module  processes  the  LOAD  command  which  allows  a 
user  to  enter  tuples  into  a  previously  defined  permanent 
relation.  The  syntax  is  as  follows: 

LOAD  <Rname> 

The  LOAD  command  puts  the  user  into  a  sub- environment  of  the 
QUERY  environment,  namely  the  LOAD  environment.  In  this 
environment  a  user  may  continuously  enter  tuples  into  a 
relation,  without  having  to  enter  LOAD  each  time.  The  LOAD 
module  has  3  basic  tasks  to  accomplish.  The  first  task  is  to 
validate  the  user's  request.  This  task  is  done  in  conjunc¬ 
tion  with  the  second  task,  namely  the  retrieval  of  the 
domain  attributes  for  the  relation  specified.  This  is  accom¬ 
plished  by  calling  FETCHT  and  passing  it  a  copy  of  RET_ARG 
which  specifies  that  VTABLE  is  to  be  selected  on  the  View 
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ID,  joined  with  RTABLE  on  RNAME,  the  result  selected  on 
RNAME  equal  to  the  relation  name  specified  in  the  request, 
the  result  joined  with  DTABLE  on  DNAME,  and  the  final  rela¬ 
tion  projected  over  DNAME  and  DATTR.  If  no  tuples  are 
returned  then  LOAD  prints  an  error  message.  Otherwise,  the 
tuples  returned  are  put  into  a  temporary  copy  of  DTABLE,  and 
a  copy  of  INSERT_ARG  is  initialized  to  contain  the  relation 
name  as  the  Nset  name  and  the  domain  names  as  the  attribute 
names.  Next,  a  header  is  printed  out  to  specify. the  order  in 
which  values  for  the  domains  must  be  entered.  The  final 
task  is  to  prompt  the  user  to  enter  the  tuples  to  be 
inserted.  For  each  tuple  entered,  LOAD  checks  the  values  for 
each  domain  against  the  domain  specifications  in  DTABLE. 
In  particular  it  checks  the  data  type,  length,  and  if  num¬ 
eric  whether  the  number  is  within  the  boundary  values  speci¬ 
fied.  If  a  value  entered  does  not  meet  the  criteria,  an 
error  message  is  printed  and  the  user  is  given  a  chance  to 
re-enter  that  data  value.  Once  the  tuple  has  been  vali¬ 
dated,  the  domain  values  are  inserted  into  INSERT_ARG  and 
INSERTN  is  called  to  insert  the  tuple  specified  in 
INSERT_ARG  into  the  Nset  representation  of  the  relation. 
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3.5.3.15  LEXICAL  ANALYSIS  ROUTINES 

There  are  3  routines  which  are  responsible  the  lexical 
analysis  of  command  lines  entered  by  the  user.  These  are 
LEX,  LEX2  and  DELIM.  LEX  is  the  Primary  lexical  analysis 
routine.  It  performs  2  functions.  The  first  function  is  to 
parse  the  command  line  into  a  token  array,  where  each  token 
is  a  character  string  of  length  8.  It  recognizes  commas, 
blanks  and  the  equals  sign  as  valid  break  characters,  alt¬ 
hough  the  equals  sign  is  also  an  operator.  In  addition,  it 
allows  a  user  to  embed  blanks  in  an  argument  if  the  argument 
is  enclosed  in  quotes.  This  first  task  is  accomplished  by 
separating  the  input  string  into  non-blank  character  strings 
separated  by  blanks.  The  non-blank  character  strings  are  put 
into  the  token  array.  The  second  task,  which  is  done  while 
the  token  array  is  being  built,  is  to  keep  track  of  the 
position  of  key  words  in  the  command  line.  For  example,  AND, 
ON,  GIVING,  and  =.  The  rationale  for  this  is  to  simplify  the 
interpretation  task  performed  by  the  DELIM  module. 

LEX2  is  a  specialized  routine  which  is  only  used  by  the 
LOAD  module  to  parse  the  data  values  entered  by  the  user.  In 
this  case  a  comma  is  required  as  a  break  charcter.  LEX2  is 
very  similar  to  LEX  except  that  along  with  creating  the 
tokens,  it  specifies  the  length  of  the  character  string  con- 
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tained  in  the  token.  However,  it  is  not  concerned  with  the 
position  of  key  words,  since  there  are  none. 

DELIM  is  responsible  for  performing  syntax  checking  of 
command  lines  issued  within  the  QUERY  environment.  It  is 
called  by  the  QUERY  module  after  LEX  has  lexically  analyzed 
the  input  string,  and  after  QUERY  has  identified  the  type  of 
command.  It  is  passed  the  type  of  command  and  the  positions 
of  the  key  words.  The  DELIM  module  then  checks  the  position 
of  the  key  words  to  see  if  they  are  positions  that  clearly 
imply  an  error  in  the  command  line.  If  so,  the  module  makes 
an  educated  guess  at  the  error,  prints  a  diagnostic  error 
message,  and  returns  a  a  flag  to  the  QUERY  module  to  indi¬ 
cate  chat  the  command  line  is  to  be  ignored. 

3.6  CONCLUDING  REMARKS  ON  THE  EXTERNAL  LEVEL 

This  concludes  our  discussion  of  the  External  level.  Sev¬ 
eral  points  are  worth  noting.  First,  it  should  that  clear 
from  this  discussion  that  the  bulk  of  the  External  level's 

function  is  very  much  that  of  an  interface.  As  such  its 
major  functions  are,  verifying  the  validity  of  user'  com¬ 
mands,  creating  the  necessary  communication  databases,  and 
issuing  calls  to  the  Nset  level  to  act  on  the  contents  of 
the  communication  databases.  While  only  very  rudimentary 
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data  validity  and  security  control  functions  were 
implemented,  they  are  illustrative  of  a  possible  approach. 
Second,  the  implementation  of  the  relational  operators  as 
virtual  operations  on  essentially  a  mapping  table  is  an 
interesting  concept  from  a  number  of  perspectives  and  prob¬ 
ably  warrants  further  thought.  Third,  the  ability  of  the 
user  to  enter  all  or  part  of  a  command  and  be  prompted  for 
the  rest,  may  seem  trivial  but  it  does  add  to  the  perceived 
flexibility  and  friendliness  of  the  system. 
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Chapter  4 

THE  LESSONS  OF  INFOSAM 

One  of  the  primary  objectives  of  the  INFOSAM  project  was 
to  develop  a  software  test  vehicle  for  the  INFOPLEX  func¬ 
tional  hierarchy.  The  purpose  of  this  software  test  vehicle 
was  to  gain  further  insight  into  the  design  of  the  func¬ 
tional  hierarchy.  While  INFOSAM  awaits  a  detailed  perfor¬ 
mance  analysis,  the  implementation  itself,  has  several 
interesting  implications  for  the  design  of  the  functional 
hierarchy.  In  this  chapter  we  will  discuss  the  implications 
of  INFOSAM  for  the  INFOPLEX  project.  In  addition,  we  will 
suggest  areas  where  the  current  implementation  might  be 
improved. 

4.1  INFOSAM  AND  INFOPLEX  -  WHAT  HAVE  WE  LEARNED 

As  a  result  of  the  process  of  implementing  INFOSAM  we 
gained  some  useful  insights  into  the  design  of  the  INFOPLEX 
DBMS.  In  this  section,  we  will  address  some  of  the  key 
issues  raised  by  this  implementation  of  INFOSAM  for  the 
INFOPLEX  DBMS  concept. 


INFOSAM  suggests  that  the  basic  concept  of  the  INFOPLEX 
DBMS,  as  proposed  by  Hsu,  works.  While  it  may  be  argued  that 
INFOSAM  is  a  pale  version  of  the  proposed  system  it  does 
incorporate  many  of  the  key  design  aspects  of  the  system.  It 
is  implemented  as  a  functional  hierarchy,  it  makes  use  of 
similar  data  models,  and  it  performs  the  full  translation 
from  External  view  to  the  Primitive  layer  view.  We  have  seen 
that  the  mapping  process  between  levels  is  both  possible  and 
powerful . 

From  an  implementation  standpoint  there  is  no  doubt  in  my 
mind  that  the  concept  of  a  functional  hierarchy  greatly  sim¬ 
plifies  the  implementation  process.  By  building  the  system  a 
level  at  a  time,  starting  with  the  lowest  level  and  working 
up,  debugging  was  made  much  simplier  since  it  could  be  done 
for  each  level  individually.  In  addition,  since  the  level's 
rely  heavily  on  the  functions  provided  by  the  levels  beneath 
them,  the  levels  became  progressively  quicker  to  implement 
and  debug  as  much  of  the  upper  level's  tasks  were  nothing 
more  than  calls  to  the  lower  level  modules.  The  strategy  of 
implementing  a  level's  catalogues  in  term's  of  the  level's 
data  model  also  simplified  the  debugging  phase.  Since,  the 
levels  employed  the  same  logic  in  managing  their  catalogues 
as  for  implementing  user  requests,  once  a  level  managed  its 
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catalogues  correctly  ,  chances  were  that  it  could  handle 
user  requests  correctly  as  well. 

However,  the  implementation  also  raised  some  disquieting 
issues  as  well.  For  one  thing,  it  was  not  until  we  started 
to  implement  the  Nset  level  that  it  became  apparent  that  a 
full  implementation  of  the  Nset  level  as  proposed  by  Hsu 
would  be  extremely  complex,  if  not  nearly  impossible.  The 
generality  of  the  proposed  structure  makes  operations,  even 
like  insertion,  very  complex.  This  is  particularly  true  if 
the  operation  involves  2  or  more  Nsets.  This  complexity 
wasn't  readily  apparent  until  we  were  faced  with  the  problem 
of  actually  implementing  it.  Our  response  was  to  sidestep 
the  issue  and  only  implement  a  restricted  form  of  the  binary 
network.  Hence,  the  Nset  level  as  implemented  here  lacks 
much  of  the  semantic  richness  that  Hsu's  design  incorpo¬ 
rates.  However,  Hsu’s  design  would  probably  be  a  master's 

thesis  in  itself  to  implement. 

A  second  point  is  that  by  the  very  nature  of  a  functional 
hierarchy,  modules  in  lower  level's  tend  to  be  called  on  a 
great  deal  to  support  upper  level  functions.  For  example, 
the  SEARCH  module  may  be  called  upwards  of  20  times  just  to 
support  a  given  insert  tuple  command.  If  this  were  a  multi- 
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threaded  system  we  suspect  that  you  would  see  a  good  deal  of 
contention  for  key  modules  in  the  INTERNAL  and  NSET  levels. 
In  this  implementation  every  attempt  was  made  to  avoid  a 
redundacy  of  of  function  between  the  levels.  In  a  later 
implementation  it  may  make  sense  to  examine  this  objective 
and  see  whether  there  may  be  functions  which,  in  the  inter¬ 
est  of  efficiency,  are  best  duplicated  across  levels.  One 
area  where  this  might  be  true  is  in  regard  to  the  handling 
of  system  databases.  The  approach  taken  in  INFOSAM  is  con¬ 
ceptually  clean  and  appealing,  but  it  may  not  necessarily  be 
the  most  efficient. 


4.2  POTENTIAL  AREAS  FOR  ENHANCEMENT. 


In  this  section  we  will  briefly  outline  a  few  areas  in 
which  the  current  implementation  of  INFOSAM  could  be 
enhanced  or  improved.  In  some  cases  these  areas  represent 
changes  in  the  current  design,  and  in  other  cases  these  are 
areas  which  were  not  addressed  in  this  initial  implementa¬ 
tion. 
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4.2.1  Changes  in  Design 


As  currently  implemented,  the  BEU  is  a  fixed  length 
structure,  consisting  of  a  fixed  length  pointer  array  and  a 
fixed  length  data  area.  This  is  highly  inefficient  in  terms 
of  storage  utilization,  and  represents  an  area  which  prob¬ 
ably  should  be  changed.  The  change  to  a  variable  length 
pointer  array  and  data  area  could  be  easily  implemented  via 
the  REFER  option  in  PL/1. 

The  current  system  implements  chaining  among  elements  of 
a  subset  via  linear  chaining.  This  may  represent  an  area 
where  the  system  should  be  changed,  or  atleast  examined. 
However,  there  may  be  tradeoffs  here  depending  on  the  rela¬ 
tive  frequency  that  single  elements  of  the  subset  are  ret¬ 
rieved  versus  retrieval  of  all  elements. 

The  join  process  of  the  Nset  level  is  also  an  area  for 
potential  improvement.  Intuitively,  we  feel  that  the  join 
process  is  basically  analogous  to  searching  a  tree  struc¬ 
ture,  and  there  is  probably  a  more  efficient  way  of  doing 
this  than  the  one  that  is  implemented. 

The  External  level  modules  currently  have  security  and 
data  validation  functions  embedded  in  them.  It  would  prob¬ 
ably  make  sense  to  create  separate  modules  to  handle  both 
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functions.  Since  the  validation  and  security  requirements  of 
the  various  modules  are  fairly  similar,  it  would  make  sense 
to  consolidate  the  functions  into  separate  uni-function 
modules. 

The  current  implementation  of  the  External  level  treats 
the  relations  defined  by  the  user  somewhat  differently  than 
the  system  defined  relations.  In  particular,  information 
concerning  user's  relations  is  temporarily  stored  in  T1_ARG 
and  all  user  issued  retrieval  requests  and  relational  opera¬ 
tions  involve  T1_ARG.  The  system  relations  should  probably 
be  treated  the  same  way.  Two  approaches  might  be  taken.  One 
might  be  to  maintain  a  system  copy  of  T1_ARG,  and  all 
requests  or  relational  operations  on  system  relations  would 
reference  this  table.  Another  approach  would  be  as  follows. 
When  a  user's  copy  of  T1_ARG  is  loaded,  the  system  would 
additionally  load  the  upper  entries  in  T1_ARG  with  the 
information  required  to  retrieve  the  tuples  in  the  system 
relations  relevant  to  the  user. 


4.3  ADDITIONS  TO  THE  SYSTEM 

Perhaps  the  single  most  important  addition  to  the  system 
would  be  to  allow  it  to  read  and  write  to  disk.  Currently, 
the  system  does  not  have  this  capability,  which  means  that  a 
user  must  redefine  and  load  his  database  each  time  he  uses 
the  system.  A  possible  intermediate  solution  would  be  to 
create  an  initialization  file  which  contained  both  the  com¬ 
mands  and  data  necessary  to  create  the  database.  By  redefin¬ 
ing  SYSIN  in  the  external  level  so  that  it  references  the 
initialization  file,  and  by  adding  an  ON  ENDFILE  block  which 
redefines  SYSIN  to  be  the  terminal  when  end  of  file  is 

encountered,  a  permanent  database  could  be  simulated.  Every 
time  the  system  was  executed  it  would  initially  read  from 
the  file  until  it  reached  the  end  of  the  file,  at  which 
point  it  would  begin  reading  from  the  terminal.  Hence,  it 
would  be  as  if  a  permanent  copy  of  the  database  was  stored. 

Ultimately,  however,  the  system  should  have  the  capabil¬ 
ity  to  read  and  write  to  disk.  This  could  be  done  with  rela¬ 
tively  few  changes  to  the  existing  code  through  the  use  of 
AREAS  and  OFFSETS.  One  approach  would  be  to  declare  an  AREA 
in  which  ail  storage  allocations  were  to  be  made.  In  addi¬ 
tion,  all  pointer  declarations  would  be  changed  to  OFFSET 
declarations  referencing  this  area.  Otherwise,  the  code 
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would  not  have  to  be  changed.  When  the  system  was  executed 
it  would  begin  by  reading  in  this  AREA  into  storage.  Prior 
to  terminating  a  session  it  would  be  written  back  to  disk. 
In  this  manner,  INFOSAM  could  be  modified  without  great  dif¬ 
ficulty  to  support  a  permanent  database. 

Another  area  of  potential  interest  might  be  to  implement 
the  Nset  level  as  orginaily  envisioned  by  Hsu.  As  mentioned 
ealier,  its  our  sense  that  this  project  might  be  of  the  same 
magnitude  as  the  whole  of  the  current  INFOSAM  project.  Our 
sense  is  that  the  insert  and  definition  modules  will  have 
to  be  made  far  more  sophisticated,  while  the  retrieval  logic 
probably  won't  have  to  be  changed  very  much.  It  may  also  be 
that  the  binary  level  will  have  to  be  enhanced  to  treat  a 
binary  association  between  2  entities  somewhat  differently 
than  the  binary  association  between  an  entity  and  an  attri¬ 
bute.  That  is,  in  an  CREATEB  request,  it  may  be  desirable  to 
be  able  to  specify  the  instance  of  one  of  the  domains  by 
specifying  an  instance  of  a  previously  defined  binary  asso¬ 
ciation  which  contains  the  element.  Another  area  of  interest 
here  would  be  to  determine  an  approach  toward  handling  Nsets 
in  which  not  ali  of  the  attribute  values  were  given  when  it 
was  created.  Hsu's  design  supports  this  concept,  but  it 
isn't  clear  how  it  might  be  implemented. 


160 


Another  area  of  potential  interest  would  be  to  implement 
a  deletion  capability.  Here  there  are  two  type  of  deletions 
with  which  to  be  concerned.  The  first,  and  easiest  would  be 
to  support  the  deletion  of  binary  associations.  This  would 
not  be  very  difficult.  If  the  association  was  1  to  1,  all 
that  would  have  to  be  done  is  to  update  the  appropriate 
pointer  slots  to  null.  Otherwise,  if  the  binary  association 
involved  a  subset,  then  it  would  be  necessary  to  unchain 
the  element  from  the  subset,  and  set  the  appropriate  pointer 
slot  to  null.  By  modifying  the  SEARCH  module  slightly,  it 
could  be  set  up  to  return  a  pointer  to  the  BEU  in  the  subset 
chain  which  points  to  the  element  to  be  deleted.  This  would 
allow  you  to  unchain  the  element  from  the  subset.  The  dele¬ 
tion  of  elements  from  primary  sets  is  a  more  complicated 
issue  since  1  element  may  be  linked  to  a  variety  of  other 
elements.  One  approach  might  be  to  set  a  flag  in  the  BEU 
indicating  that  it  has  been  logically  deleted,  and  modifying 
the  SEARCH  routine  so  that  it  recognises  that  the  element 
has  been  deleted.  In  addition,  a  list  would  be  kept  of  all 
elements  which  had  been  deleted  during  a  session.  At  the  end 
of  the  session,  a  module  would  then  go  through  to  physically 
implement  the  deletion  and  its  associated  ramifications.  The 
rationale  for  such  an  approach  is  that  the  deletion  process 
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may  be  sufficiently  involved  that  it  may  not  be  desirable, 
from  the  view  of  response  time,  to  physically  delete  ele¬ 
ments  when  the  command  is  issued. 


The  provision  of  an  update  capability  is  another  area 
which  warrants  work.  It  is  also  linked  fairly  closely  with 
the  deletion  capability  since  much  of  the  logic  would  be  the 
same.  Once  again,  the  biggest  problem  would  be  the  updating 
of  an  element  which  was  in  more  than  one  binary  association. 

4.4  CONCLUDING  REMARKS 

At  this  point  the  reader  should  have  a  clear  picture  of 
INFOSAM,  its  design,  its  relationship  to  the  INFOPLEX  pro¬ 
ject,  and  it's  strengths  and  weaknesses.  We  have  seen  that 
it  is  a  relational  DBMS,  which  is  designed  around  the  com¬ 
plimentary  concepts  of  a  functional  hierarchy  and  the 
ANSI/SPARC  proposed  design.  We  discussed  its  role  in  the 
INFOPLEX  project  as  a  software  test  vehicle  whereby  addi¬ 
tional  insights  could  be  gained  into  the  design  of  the  INFO¬ 
PLEX  functional  hierarchy  through  the  implementa¬ 
tion,  performance  analysis  and  future  modification  of  the 
INFOSAM  system.  We  then  presented  an  overview  of  the  design. 
Here  we  stressed  the  hierarchical  decomposition  of  the  sys¬ 
tem  into  levels,  where  a  level  was  distinguished  by  a  unique 
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conceptual  view  of  the  data,  level  specific  databases,  and 
modules  which  accepted  calls  in  terms  of  the  level's  data 

model  and  translated  them  into  requests  to  the  next  lower 
level,  expressed  in  terms  of  that  level's  data  model.  We 
then  took  the  reader  through  each  level  in  INEOSAM,  and  des¬ 
cribed  its  data  model,  databases  and  modules.  In  particular, 
we  showed  how  the  level's  mapped  their  data  model  onto  that 
of  the  next  lower  level.  Finally,  we  discussed  the  lessons 
we  have  learned  so  far  from  INEOSAM,  both  for  the  INFOPLEX 
project  and  for  future  implementations  of  INEOSAM. 

It  is  the  author's  sincere  hope  that  the  INFOSAM  system 
will  prove  as  useful  to  others,  in  particular  the  INFOPLEX 
project,  as  the  process  of  its  implementation  proved  to  me. 
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Appendix  A 

SAMPLE  TERMINAL  SESSION 


GO. 

EXECUTION  BEGINS. . . 

--  INFOSAM  -- 

L 

IFS : 

DEFINE 

*  This  next  section  illustrates  the  definition  of  the  * 

*  sample  database.  The  database  consists  of  S  * 

*  domains,  3  relations  and  1  view.  The  relations  are  * 

*  SUPPLIER  PART  * 

*  SS  SNAME  STATUS  CITY  PP  PNAME  COLOR  WEIGHT  CITY  * 

*  * 

*  SP  * 

*  35  PP  QTY  * 

*  * 

*  and  the  domains  are  as  shown  above.  The  example  below  * 

*  illustrates  how  these  domains,  relations  and  view  * 
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*  are  defined 


********************************************************1 

D: 

B.QMAIN. 

DOMAIN  NAME: 

SS 

DATA  TYPE: 

C_ 

MAXIMUM  LENGTH: 

2_ 

D: 

DOMAIN  SNAME  C  6 
D: 

D  STATUS 
DATA  TYPE: 

N 

MAXIMUM  LENGTH: 

2 

MINIMUM  VALUE: 

Q. 

MAXIMUM  VALUE: 

SO. 

D: 

D  CITY  C  6 
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D: 

D  QTY  N  3  0  500 
D: 

D  ?P  C  2 
D: 

D  PNAME  C  6 
D: 

D  COLOR  C  6 
D: 

D  WEIGHT  N  2  0  50 
D: 

D  CITY  C  6 

DOMAIN  ALREADY  DEFINED. 

c: 

D: 

RELATION 
RELATION  NAME: 

SUPPLIER 
DOMAIN  NAMES: 

S£_  SNAME  STATUS  CITY 
UNIQUE  DOMAIN  INDEXES: 

1 — Z. 

T>: 

RELATION  PART  PP  PNAME  COLOR  WEIGHT  CITY 
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4 


V 

[ 

UNIQUE  DOMAIN  INDEXES: 

1_ 

D: 

R  SP  SS  PP  QTY 
UNIQUE  DOMAIN  INDEXES: 

D: 

VIEW 
VIEW  ID: 

VIEW1 

RELATION  NAMES: 

SUPPLIER  PART  SP 
D:  <CR.> 

IFS: 

QUERY 

--  READY  FOR  QUERIES  -- 

********************************************************** 

*  The  following  section  illustrates  the  Query  environment* 

*  commands:  GETVIEW,  SHVIEW,  SHREL  * 

********************************************************** 

Q: 

GV  VIEW1 

VIEW  LOADED. 
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CITY 


CHAR 


STATUS 


SNAME 


ss 


NUM 


CHAR 


CHAR 


l  PART 

DOMAIN  TYPE 


CITY 


WEIGHT 


COLOR 


CHAR 


NUM 


CHAR 


PNAME 


CHAR 


PP  CHAR  2 

********************************************************** 

*  This  next  section  illustrates  the  LOAD  environment  of  * 

*  the  system.  After  each  relation  is  loaded,  the  contents* 

*  of  the  relations  are  printed  out.  * 

********************************************************** 

Q- 

LOAD  SP 

|QTY  |PP  |SS  | 


L: 

300, PI, SI 
L: 

200.P2.S1 

L: 

100.P3.S1 

L: 

140.P4.S1 

L: 

501.P5.S1 

DATA  FOR  DOMAIN  QTY  ABOVE  MAX: 

51 

L: 
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490, P6, SI 


L: 

300.P1.S2 

L: 

400.P2.S2 

L: 

200.P2.S3 

L: 

100.P2.S4 

L: 

340.P4.S4 

L: 

400.P5.S4 

L:  CCK* 

Q  = 

PRINT  SP 


L: 

JONES, PARIS, S2, 13 
L: 

BLACK, PARIS, S3 , 14 
L: 

CLARK, LONDON, S3  27 

REQUEST  IGNORED,  DUPLICATE  KEY  FOUND  IN  RELATION 


L: 

CLARK , LONDON , S4 , 2  7 
L: 

ADAMS , ATHENS , S5 , 24 
L:  <CK> 

Q: 

PRINT  SUPPLIER 

| CITY  | STATUS  | SNAME  | SS 

| ATHENS | 24 | ADAMS  | SS | 

| LONDON | 27 | CLARK  |S4| 

| LONDON | 10 | SMITH  | SI | 

| PARIS  | 14 | BLACK  ' S3 | 
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|  PARIS  1 13 | JONES  | S2 | 


Q: 

LOAD  PART 

| PNAME  |PP  | CITY  | COLOR  | WEIGHT  | 


L: 

NUT, PI , LONDON, RED, 23 
L: 

BOLT , P2 , PARI S , GREEN , 3  2 
L: 

SCREW, P3, ROME, BLUE, 14 
L: 

SCREW , P  4 , LONDON , RED , 2  4 
L: 

CAM, P5, PARIS. BLUE, 37 
L: 

COG,P6, LONDON, RED, 18 
L  : 

Q: 

PRINT  PART 

| CITY  | WEIGHT  | COLOR  | PNAME  | PP 


174 


|  ROME  | 14 (BLUE  | SCREW  | P3 | 


| PARIS  | 32 | GREEN  | BOLT  | P2 i 

1  PARIS  | 37 | BLUE  | CAM  |P5| 

| LONDON (23 (RED  (NUT  |P1| 

| LONDON | 24 | RED  | SCREW  | P4 ( 

( LONDON | 18 | RED  | COG  | P6 | 

*•*********■****★*******★  +  **■*’******■ 

*  This  next  section  illustrates  the  use  of  the  relational* 

*  operators,  PROJECT,  JOIN,  and  SELECT.  In  this  first  * 

*  sequence  we  show  how  the  SELECT  command  can  be  used  * 

*  to  retrieve  tuples  (rows)  which,  meet  certain  * 

*  restrictions  from  a  relation.  We  also  illustrate  the  * 

*  use  of  the  PROJECT  command  to  retrieve  only  relevant  * 

*  columns.  * 

SELECT  PART  ON  COLCR=BLUE  GIVING  T1 
Q: 
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i 

i 

i 

L 


PRINT  T1 


| CITY  (WEIGHT  | COLOR  (PNAME  | PP  | 

| PARIS  | 37 (BLUE  | CAM  |P5( 

| ROME  | 14 | BLUE  (SCREW  | P3 | 

Q: 

SELECT  PART  ON  CITY=PARI S , COLOR=BLUE  GIVING  T2 

Q* 

PRINT  T2 

| CITY  | WEIGHT  | COLOR  | PNAME  | PP  | 

| PARIS  | 37  I  BLUE  | CAM  (PS | 

Q: 

PROJECT  PART  ON  PNAME, COLOR  GIVING  T3 

Q: 

PRINT  T3 

| COLOR  ( PNAME  | 

| BLUE  | SCREW  | 

( GREEN  | BOLT  | 


176 


|  BLUE  | CAM  | 


|  RED  |  NUT  | 

|  RED  | SCREW  j 

|  RED  |  COG  ] 


********************************************************** 

*  The  following  sequence  of  commands  illustrates  the  use  * 

*  of  the  JOIN  command.  The  objective  of  the  sequence  is  * 

*  to  retrieve  the  PARTS  information  for  all  parts  * 

*  supplied  by  CLARK  and  available  in  LONDON.  * 

********************************************************** 

Q: 

SELECT  SUPPLIER  ON  SNAME=CLARK  GIVING  Til 
Q: 

JOIN  SP  AND  Til  ON  SS  GIVING  T12 
Q: 

PRINT  T12 

IQTY  |?P  fSS  | CITY  | STATUS  | SNAME  | 

| 400 | P5 | S4 | LONDON | 27 | CLARK  | 


. • 
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r 

| 340 | P4 | S4| LONDON | 27 | CLARK  | 

[ 100 | P2 | S4 | LONDON | 27 | CLARK  | 

Q: 

JOIN  T12  AND  PART  ON  PP,CITY  GIVING  T13 

Q: 

PRINT  T13 

| QTY  |PP  |SS  | CITY  | STATUS  | SNAME  | WEIGHT 

I 

| PNAME  | 

| 340 | P4 | S4 | LONDON | 27 | CLARK  |24|RED  | SCREW  | 

Q- 

IFS : 

—  END  OF  SESSION  -- 

R; 


|  COLOR 
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Appendix  B 

LISTINGS  AND  DOCUMENTATION  FOR  THE  INFOSAM  SYSTEM 
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IE; 


2  NNAME  BIT (64 ) ,  /.  NAME  OF  NSET  */  DCL00020 

2  NATTR  BIT ( 8 ) >  /*  NUMBER  OF  ATTRIBUTES  ♦/  DC100030 

2  ATT R ( 20 ) ,  /•  FOR  EACH  ATTRIBUTE  */  DCL00040 

3  ANAME  BI T( 64 ) ,  /*  ATTRIBUTE  NAME  */  DCL00050 

3  K_TYPE  BIT(8);  /*  UNIQUE  KEY  OR  NOT  */  DCL00060 

0CL00070 

«**•*•*•»**.*»*»«  D  00090 

'  /•  DEF1NEV  TABLE  •/  D  00100 

X  INCLUDE  DVARG; D  00110 
/«  STRUCT  USE  USED  TO  PASS  NAME  OF  VALUE  SET  TO  BE  DEFINED  •/  DVA00010 

4  1  0  DCL  1  D7.ARG,  DVA00020 

2  NAME  B I T ( 64 ) ,  /*  NAME  OF  VALUE  SET  •/  DVA00030 

2  KEY_  LEN  BIT(6);  /*  LENGTH  OF  KEY  FIELD  */  DVA00040 

••»****•****#»•  D  00110 

D  00120 

/•  SUBROUTINES  */  0  00130 

X  INCLUDE  EDEFV IX; *••**•*••••••***0  00140 

/»  DEFINE  VIEW  MODULE  */  0EC00020 

|  510  DCL  DEFV1EW  ENTRY ( FIXED  BIN(15),(*)  CHAR ( B ) ) ;  DEC00030 

***«•**»»»*.»*•»«  0  00140 

X  INCLUDE  EOE FTEL;******»«»******** **»******♦**•••• •********************D  00150 

/*  DEFINE  RELATION  MODULE  */  DEC00050 

6  1  0  DCL  DEFREL  ENTRY(FIXEO  BIN(15).(*)  CHAR(8));  DEC00060 

****«*«•»**»*< « «.  D  00150 

X  INCLUDE  EDEFDOM; **♦*«»****»»*•*»•♦***»♦*»* ***.****»*»D  00160 

/«  DEFINE  RELATION  MODULE  ♦/  DEC00080 

7  1  0  DCL  D E F DOM  ENTRY ( CHAR ( 8 ) ,CHAR ( 8) , CH AR ( 8) , CHAR ( 8 ) .CHAR ( 8) ) ;  DEC00090 

D  00160 

X  INCLUOE  ELE  X  ;•...♦■.*.*««*.**. *.*♦«. *♦♦*♦♦**•♦***«♦***•♦*****.**.♦**  **.*D  00170 

/*  LEXICAL  ANALYZER  */  DEC00110 

8  1  0  DCL  LEX  ENT  RY ( F I XED  BIN(15),(*)  CHAR(B));  DEC00120 

D  00170 

X  INCLUDE  EOEF INV ; *•*  ***...*.»*.*».***•»**«*********»**«**•***•**•*•**** *D  00180 
/*  DEFINE  ATTRIBUTE  MODULE  •/  DEC00140 

910  DCL  DEFINEV  ENTRY(1,  2  BIT(64),  2  B I T ( 8 ) > ;  DEC00150 

D  00180 

X INCLUOE  EDEF INN ;.«».»*..«♦ 4 *♦.*.*****»•♦♦**.»***•*•*** •**••**•**** **..D  00190 

/•  DEFINE  NSET  MODULE  */  0EC00170 

10  1  0  DCL  DEFINEN  ENTHY(1,  2  BIT(64),  2  BIT(8),  0EC00180 

2  (20).  3  B I T (64 ) ,  3  BIT (8) ) ;  DEC00190 

DEC00200 

•..•**.»*»•**»**»  D  00190 

D  00200 

/«  MISCELLANEOUS  */  D  00210 

11  1  0  DCL  VNAME (20)  CHAR(8),  0  00220 

N_TOK  FIXED  B1N(15).  D  00230 

TRUE  e l T ( 1  )  INIT('I’B),  D  00240 

F  LAG  B I  T  (  1  )  STATIC  INIT(M'B);  D  00250 

D  00260 
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/* 

DEFINE  DICU0NAR1ES  •/ 

D 

00270 

12 

1 

0 

IF  FLAG 

D 

00280 

THEN  U0; 

D 

00290 

0 

00300 

/*  DEFINE  psets  »/ 

D 

00310 

13 

1 

1 

KEY.LEN  «  ' 001 1 1000 ' B;  NAME  «  UNSPECl 'DATTR  '); 

D 

00320 

15 

1 

1 

CALL  DEFINE VI DV^ARG); 

D 

00330 

16 

1 

1 

F£y_LEN  =  1 0 1 0OCOO 0 1 B ;  NAME  *  UNSPECl'DNAME  ‘  )  ; 

D 

00340 

IB 

1 

1 

CALL  OEFIllEVlOV^ARG); 

D 

00350 

19 

1 

1 

K.Y_LEN  =  ' 0 1 000000 1 B;  NAME  *  UNSPEC ( * RNAME  '); 

0 

00360 

21 

1 

1 

CALL  D£FJN£V(DV_ARG); 

0 

00370 

22 

1 

1 

KEY_LEN  =  ' 0 1020000' B;  NAME  »  UNSPECl'lD  '); 

0 

00380 

24 

1 

1 

CALL  Q EF INEV l OV..ARG) ; 

D 

00390 

D 

00400 

/♦  OEF INC  NSETS  »/ 

0 

00410 

25 

1 

1 

NAT  TR  *  *  000000 1  0  1  ft ; 

D 

00420 

26 

1 

1 

NNA.ME  =  UNSPEC (  ‘  VT ABLE  ');  ANAME(I)  •  UNSPECl'lD  *) 

;d 

00430 

2B 

1 

1 

ANAME(2)  *  UNSPECl 'RNAME  '); 

0 

00440 

29 

1 

1 

K_TYPE ( 1  ),K  T Y PE ( 2 )  =  'OOOOOOOO'B; 

0 

00450 

30 

1 

1 

CALL  DEFINEN(DEF_ARG); 

D 

00460 

31 

1 

1 

H'JAMS  *  UNSPECl 1 RT ABLE  ');  ANAME(I)  ■  ANAME12); 

0 

00470 

33 

1 

1 

ANAf.lE  (  2  )  =  UNSPECl  'ONAME  '); 

D 

00480 

34 

1 

1 

CALL  DEFINENfOEF  ARG); 

0 

00490 

35 

1 

1 

NNAME  *  UNSPECl 'DTABLE  ');  ANAME(I)  -  ANAME(2); 

D 

00500 

37 

1 

1 

ANAME12)  *  UNSPECl ' DATTR  ');  K_TYPE(1)  «  'OOOOOOOl'B: 

D 

00510 

39 

1 

1 

CALL  0EFIN6N(DEF_ARG) ; 

D 

00520 

40 

1 

1 

FLAG  =  ' 0 ' B ; 

D 

00530 

41 

1 

1 

END; 

D 

00540 

0 

00550 

START  SUBROUTINE  •/ 

0 

00560 

42 

1 

0 

DO  WH I LE( TRUE); 

D 

00570 

43 

1 

1 

PUT  SKIP  LIST  I'D:'); 

D 

00580 

44 

1 

1 

CALL  LE  X l N_TOK , VNAME ) ; 

D 

00590 

45 

1 

1 

IF  N_TOK  =  0  THEN  RETURN; 

D 

00600 

D 

00610 

/*  SELECT  COMMAND  */ 

D 

00620 

46 

1 

1 

SEl 

_COM:  SELECTl VNAME( 1 ) ) ; 

D 

00630 

D 

00640 

/-  DEFINE  VIEW  •/ 

0 

00650 

47 

1 

2 

WHENIOP (1 )  ,  A0P11 ) )  CALL  DEFVI EW ( N_TOK , VNAME ) f 

D 

00660 

D 

00670 

/*  DEFINE  RELATION  •/ 

D 

00680 

48 

1 

2 

WHEN(0P12),AGP12))  CALL  OEFREL ( N_TOK . VNAME ) ; 

D 

00690 

D 

00700 

/*  DEFINE  DOMAIN  */ 

D 

00710 

49 

1 

2 

WHEN ( OP  (  3)  , <»0P (  3)  ) 

D 

00720 

CALL  OE  FOOM( VNAME ( 2 ) , VNAME ( 3 ) , V  NAME ( 4 ) , VNAME ( 5 ) ,VNAME(6 ) ) ; 

D 

00730 

D 

00740 

/*  INVAHO  OPERATORS  */ 

D 

00750 

i£; 


50 

1 

2 

OTHERWISE 

0 

00760 

DO; 

0 

00770 

51 

1 

3 

PUT  SKIP(O)  EDIT  (VNAME(I),*  IS  AN  INVALID  COMMAND* ) 

D 

00780 

(A,A)  ; 

0 

00790 

52 

1 

3 

PUT  SKIP  LIST  ('RETYPE  COMMAND:'); 

D 

00800 

53 

1 

3 

GET  EDIT  (VNAME(I))  { A (8 ) ) ; 

D 

00810 

54 

1 

3 

IF  VNAME(I)  *»  (8)'  1  THEN  GO  TO  SEL.COM; 

D 

00820 

55 

1 

3 

FND  ; 

0 

00830 

56 

1 

2 

END; 

D 

00840 

57 

1 

1 

END; 

D 

00850 

D 

00860 

58 

1 

0 

END  DEFINE; 

D 

00870 

i 

>-* 

CD 

Ul 

I 


p 


I 


XINCLUDE  DEFDQMS' 


►DEF00010 


/ . 

************  ********* 

*************** 

DEFOOOtO 

* 

* 

DEF  00020 

* 

MODULE 

DESCRIPTION 

* 

DEF00030 

*  ****** 

************************************ 

DE  F  00040 

DEFDOM: 

PROCEDURE 

DE  F  00050 

(  TNAME , 

/•  CH  A R ( B  ) 

•/ 

DEF00060 

CTYPE, 

/*  CHAR(9) 

«/ 

DE  F 00070 

CLEN, 

/»  CHAR(8> 

*/ 

DEFOOOBO 

CM  IN, 

/*  CHAR(8) 

»/ 

DEF  00090 

CMAX 

/*  CHAR( 8 ) 

*/  ): 

DEF00100 

/ *#*«*« 

************  ********* 

*  *  *  ******  ****** 

DEF001 10 

♦  *  * 
*  *  * 
*  *  * 
♦  *  ♦ 
*  *  * 
*  *  ♦ 
*  ♦  ♦ 
*  *  ♦ 


00 

O' 

I 


'  *  *  ♦ 
‘  *  ♦  ♦ 


'  *  *  * 
»  *  *  * 
-  *  *  * 
'  ♦  *  * 


•  ♦  ♦  * 
'  *  ¥  * 
'  *  ¥  * 
»  *  *  * 


‘  ♦ 
»  *  *  * 


PURPOSE: 

the  purpose  of  this  procedure  is  to  accept  requests 

10  DEFINE  DOMAINS, VALIDATE  THE  REQUESTS,  THEN  ISSUE 
A  CALL  TO  DEFlNtV  TO  DEFINE  A  VALUE  SET  CORRESPONDING  TO 
THE  DOMAIN,  AND  FINALLY*  INSERT  THE  DOMAIN  NAME  AND 
DESCRIPTION  INTO  THE  DTABLE  RELATION. 

******  *  *  * ** *  *  *  *• ********  ************************************** 
METHOD: 

LOGIC  IS  STRAIGHTFORWARD.  SEVERAL  NOT fS , HOWE VER ,  1) 

USES  A  PRE-SPEC  I F I  ED  COPT  OF  INSERT  ARG  TO  INSERT  THE 
DOMAIN  NAME  AND  DESCRIPTION  INTO  THE  DTABLE  RELATION. 

2)  FETCHV  IS  CALLED,  USING  A  PRE  SPECIFIED  COPY  OF 
c  V  _  ARG  TO  SEARCH  DNAME  FOR  DOMAIN  NAME. 

3)  ARGUMENTS  TO  DEFDOM  ARE  CREATED  BY  LEX  WHEN  IT 
SCANS  AN  INPUT  LINE.  BLANKS  ARE  PASSED.  IF  ARGUMENTS 
NOT  SPECIFIED  BY  USER. 

4)  THE  STRUCTURE  ‘RECORD'  IS  USED  TO  BUILD  THE  DATTR 
STR ING. 


DEFC0120 
DEF00130 
DET00140 
DEFOOtSO 
DE  F 00 1 60 
DE  F  00 1 70 
DE  F  00 1 80 
DEF00190 
DE  F  00200 
DEF00210 
DE  F  00220 
DE  F  00230 
DE  F  00240 
DE  F  00250 
DEF002GO 
DE  F  00270 
DEF00280 
DE  F  00290 
DE  F  00300 
DEF  0031 0 
DE  F  00320 
DEF00330 
DEF00340 
DE  F  00350 


l*»4.«*..tt*ii.*«.4.4.4***4«****4**»*****.««.*M*»*».*«».»»«*« 

INPUT  PARAMETERS: 

ARGUMENTS  CREATED  BY  THE  LEX  ROUTINE  DURING  ITS  SCAN  OF 
AN  INPUT  LINE.  IF  ARGUMENTS  MISSING.  BLANKS  ARE  PASSED 
AND  DEFDOM  PROMPTS  THE  USER  FOR  THE  NECESSARY  INFORMAT  ION . OE f 00360 
ARGUMENTS  ARE  AS  FOLLOWS:  OEF 00370 

THAME  -  NAME  OF  DOMAIN  TO  BE  DEFINED  OEFOO30O 

CTYPE  -  C  OR  N. INDICATING  TYPE  OF  INFORMATION  CONTAINED  INDEF00390 


DOMA I N . 

CLEN  -  MAXIMUM  PERMISSABLE  LENGTH  FOR  ELEMENTS  WITHIN  THE 
THE  DGMAIN 

CM IN  -  IF  NUMERIC  OATA,  THE  MINIMUM  PERMISSABLE  VALUE. 
CMAX  -  IF  NUMERIC  DATA,  THE  MAXIMUM  PERMISSABLE  VALUE. 


OE  F  00400 
DEF00410 
OEF  00420 
OE  F  00430 
DEF00440 
0EF00450 


OUTPUT  PARAMETERS: 

NONE,  HOWEVER,  IT  DOES  CALL  DEFINEV  TO  DEFINE  A  VALUE 
CORRESPONDING  TO  THE  DOMAIN,  AND  IT  DOES  CALL  INSERTN 
INSERT  THE  DOMAIN  DESCRIPTION  INTO  THE  NSET  REPRESENTA 
Of  DTABLE. 


CALLS  PROCEDURES: 
INSERIN  DEF INEV , FETCHV 


2  1  0 


3  1  0 


4  1  0 


5  1  0 


/*  INSERTN  TABLE  •/ 

DCL  1  INSERT  ARG. 

2  NNAME  81 T ( 64 )  INIT(UNSPEC( * DTABLE 
2  NAT  TR  BIT(8)  IN  I T ( 1 000000 1 0 1 B) , 

2  AT  T  R ( 20 ) . 

3  ANAME  B I T ( 64 )  INIT ( UNSPEC ( 1 DNAME 
UNSPEC( -dattr 

3  VALUE  BI T ( 320 ) : 

/.  DEFINEV  TABLE  */ 

DCL  1  DV_AR  G , 

2  VNAME  BIT (64), 

2  KEYLEN  B I T (8 ) ; 

/*  FETCHV  TABLE  */ 

DCL  t  !:V_ARG, 

;  D_N AME  B I T ( 64 )  INIT(UNSPEC(  ' DNAME 
2  KEY  _VAL  B I T ( 160), 

2  FOUNO  B I T ( 1 ) , 

2  DATA  BI T ( 320)  ; 

/»  temporary  VARIABLES  */ 

DCL  TUAV.E  C HAR ( 8  )  , 

1  RECORD, 

2  TTYPE  BIT(B)  . 

2  TLEN  BIT( 16)  , 

2  TMI N  BIT( 16) . 

2  TMAX  BIT (16), 

DATTR  B  I  T ( 56 )  DEFINED  RECORD, 

( CTYPE, C  LEN , CM  IN , CM AX )  CHAR (8) , 

BTYPE  C H A R ( 1  ) , 

(  Ul.EN.BMIN.bMAx)  FIXED  BIN(16), 

KLEN  FI XEO  BIN(O) J 


/*  SUBROUTINES  */ 
XINCLUDE  EINSER  1;** *••**»" 


**  DEF00460 

DE  F  00470 
SET  DEF00480 
TO  DEF00490 
T IONDE  F  00500 
DEF00510 
DE  F  00520 
**  DE  F  00530 
DE  F  00540 
DE  F  00650 
*/  DEF00560 

DEF00010 
DE  F  00020 
DE  F  00030 
DE  F  00040 
DEF00050 
DEF00060 
DET00070 
DE  F  00080 
DE  F  00090 
DE  F  00 1 00 
DEF001 10 
DE  F  00 120 
DE  F  00 1 30 
DEF00140 
DE  FO0 1 50 
DE  F  00 1 60 
DE  FO0 1 70 
DE  F  00 1  BO 
DE  FO0 1 90 
DE  F  00200 
DEF00210 
DEF00220 
DE  F  00230 
DE  F  00240 
DE  F 00250 
DEF  00260 
DEF00270 
DE  F  00280 
DEF00290 
DE  F  00300 
DE  F  003 1 0 
DE  F  00320 
DE  F  00330 
DEF00340 
DEF00350 
DE  F  00360 
DEF00370 
>****DEF00380 


/»  INSERT  NSET  MODULE  */  DEC00070 

DCL  INSERTN  ENTRY ( 1 ,  2  BIT(64),  2  B1T(8),  2  (20).  DEC00080 

3  B  I  T ( 64 )  ,  3  BI T( 320) ) ;  DEC00090 

.................  DEF00380 

X  INCLUDE  EOEF INV; ............................ DE F 00390 

/*  DEFINE  ATTRIBUTE  MODULE  */  DEC00140 

DCL  DLFINEV  ENTRY ( 1 ,  2  BIT(64),  2  BIT(8));  DEC00150 

*«.»»*..«..*.  ...  DEF00390 

X  INCLUDE  EFF.TCHV » .*....»«.*..*...**••••***•••••* ***DE F 00400 

/.  USED  '0  FETCH  INSTANCES  OF  DOMAINS  •/  DEFOOOtO 

DCL  FETCHV  ENTRY ( 1 ,  2  BIT(64),  2  BIT(160).  DEFC0020 

2  B  IT  ( 1 )  ,  2  B I T ( 320  )  )  ;  DEF00030 

DE  F  00040 

.................  DE  F  00400 

DEF00410 

/«  ON  CONDITIONS  •/  0EF00420 

DCL  0NS3URCE  BUILTIN;  DEF00430 

ON  CONVERSION  DEF00440 

BEGIN;  DE  F  00450 

PUT  SKIP(0»  LIST  (‘NUMERIC  DATA  REQUIRED.*);  DEF00460 

ONSOURCE  =  1 0 ‘ ;  DE  F  00470 

END;  DE  F  00480 

DE  F  00490 

/*  SUBROUTINE  STARTS  ♦/  DEF00500 

DEF00510 

/.  GET  DOMAIN  NAME  «/  DEF00520 

IF  TNtME  =  ( 8 )  *  *  DEF00530 

THEN  DO:  DE  F  00540 

PU,  SslP  LI5T( 'DOMAIN  NAME: *) ;  DEF00550 

GE’  EDIT  (TNAME)  (A(8));  DEr00S60 

IF  TNAME  =  (8)'  '.THEN  RETURN;  DEF00570 

ENC;  DE  F  00580 

DE  F  00590 

/•  VALIDATE  DOMAIN  NAVE  */  DEF00600 

KEY_VAl  =  UNSPEC( TNAME)  ;  DEF00610 

CALL  FETCHV ( FV_ARG) ;  DEF00620 

IF  FOUND  DEF00G30 

THEN  DC;  DE F 00640 

PUT  SKIP  LIST  ('DOMAIN  ALREADY  DEFINED.');  DEF00650 

RETURN;  DEF00660 

END;  DEF00670 

DE  F  00680 

/*  GET  DATA  TYPE  */  DEF00690 

BTYPE  .  CTYPE;  DEF00700 

DO  WH I LE ( BT  YPE  "=  *C'  t  BTYPE  *»  'N');  DEF00710 

PUT  SKIP  LIST  ('DATA  TYPE:')*,  DEF00720 

GET  EDIT  (BTYPE)  ( A ( 1  )  )  ;  DEF00730 

IF  BTYPE  »  '  '  THEN  RETURN;  DEF00740 

END;  DEF00750 


3 1  t  0 


32  1  0 

33  1  0 

34  1  0 

35  t  t 

36  t  1 

37  t  1 

33  1  1 


39  1  0 


40  1  1 

41  1  1 

42  1  2 

43  1  2 

44  1  2 

45  1  2 

46  1  1 


47  1  1 

48  1  1 

49  1  1 

50  1  2 

51  1  2 

52  1  2 

53  1  2 

54  1  1 


55  1  0 

59  1  0 

60  1  0 

Cl  1  0 

62  1  0 

63  1  0 


64  1  0 
66  1  0 


/»  GET  maximum  length  •/ 

IF  V£R1FY(CLEN, ‘0123456789  ')  *  0 
THEN  I F  CLEN  *  (8 ) 1  * 

THEN  0LEN  =  0; 

else  6len  =  bin(CLEN); 

ELSE  6LEN  =  0; 

DO  WH1LE1BLEN  <  1  !  BLEN  >  40  ); 

PUT  SKIP  LIST  ('MAXIMUM  LENGTH:*); 

GET  LIST  (BLEN); 

IF  'JLEN  =  0  THEN  RETURN; 

END; 

/*  CHECK  IF  NUMERAL  DATA  TYPE  •/ 

IF  BTYPE  *  ' N ' 

THEN  DO; 

/»  GET  MINIMUM  AND  MAXIMUM  VALUES  */ 

IF  VER  IFY(CMIN, 1 01 23456789  ')  *  0  4  CMIN  *»  (8)' 
THEN  li  MI  N  =  B I  N(  CM  IN); 

ELSE  DO; 

PUT  SKIP  LIST  (‘MINIMUM  VALUE:*); 

GET  LIST  (BMIN); 

I F  BMIN  =  -1  THEN  RETURN; 

END; 

IF  VER  I  FY( CMAX , *01  2 34567 B9  ')  *  0 
THEN  I F  CM AX  =  (B) '  1 

THEN  BMAX  =  BMIN  -  1; 

ELSE  Bf.lAX  =  BIN(CMAX); 

ElSE  6 MAX  =  BMIN  -  1; 

DO  WH1LE(BMAX  <  BMIN); 

PUT  SKIP  LIST  ('MAXIMUM  VALUES*): 

GET  LIST  (BMAX); 

IF  BMAX  =  -1  THEN  RETURN; 

END; 

END; 

/•  CAIL  1NSERTN  TO  ADD  NEW  DOMAIN  TO  TABLE  •/ 

TTYPE  =  UNSPEC(BTYPE) ;  TLEN  =  BLEN;  TMIN  ■  BMIN!  TMAX 
VALUE ( 1 )  *  UNSPEC ( TNAME ) S 
VALUE ( 2 )  =  OATTR ; 

CALL  INSERTN( INS£RT_ARG) ; 

/*  DETERMINE  KEY  LENGTH  •/ 

KLEN=  M I N ( T  LEN *8 ,  64); 

KEY_L  EN  =  BIN(KLEN); 

/«  CALL  DEFINEV  TO  CREATE  A  PSET  •/ 

VNAME  =  UNSPEC (TNAME);  KEY_LEN  =  '01000000*6; 

CALL  DEFIN£V(DV_ARG) ; 


DEF00760 
DEF00770 
DEF00780 
DE  F  00790 
DE  F  00800 
DEF0081 0 
0£F  00820 
DE  F  00830 
DE  F  00840 
DE  F  00850 
DE  F  00860 
DE  F  00870 
DEI  00880 
DE  F  00090 
DEF  00900 
DE  F  009 1 0 
DE  F  00920 
DE  F  00930 
DEF00940 
DE  F  00950 
DEF  00960 
DE  F  0097 0 
DEF 00980 
DE  F  00990 
DEF01000 
DEF01010 
DE  F  0 1 020 
DEF01030 
DE  FO 1 040 
DE  F  0 1 050 
DE  F  0 1 060 
DEF01070 
DE  F 0 1 080 
DEF  01 090 
DEF01 100 
DE  F  0 1 1 1 0 
0EF01 120 
BMAX;  DEF01130 
DEF01 140 
DEF01 150 
DEF01 160 
0EF01 170 
DEF01 180 
OEF01 190 
DE  F0 1 200 
DE  FO I  2 1 0 
DEF01220 
DEF01230 
DEF01240 


67  1  0 


END  DEFDOM; 


0EF01250 


AD-A116  593 
UNCLASSIFIED 


ALFRED  P  SLOAN  SCHOOL  OF  MANAGEMENT  CAMBRIDGE  MA  CEN— ETC  F/G  9/2 
infosam:  a  sample  database  management  SYSTEM. IU) 

DEC  61  B  BLUMBER6 
CISR-M010-8U2-07 


N 


N00039-81-C-0663 

NL 


;  INCLUOE  OEFRCL;  ■ 


MOOULE  DESCRI P  T ION 


jefrel:  procedupe 


(N, 

TNAME 


/♦  FIXED  BIN( 15) 
/*  (20)  CHAR ( 8 ) 


PURPOSE : 

this  module  is  responsible  for 

DEFINE  RELATIONS.  IT  VALIDATES 
THAT  ALL  DOMAINS  EXIST  AND  THA 
DEFINED),  ISSUES  A  CALL  TO  DE F 
REPRESENTATION  OF  THE  RELATION 
TO  1NSERTN  TO  INSERT  RELATION 


METHOD: 

LOGIC  IS  SIMILAR  TO  THAT  OF  DE 
A)  pre-specifieo  COPY  OF  INSER 
INTO  R TABLE.  INSERTN  MUST  BE  C 
IN  THE  RELATION. 

*****4*44'»*********44*44*****44*****,< 

INPUT  PARAMETERS: 

Afi  AJMENTS  CREATED  BY  LEX  DURIN 
ISSUEO  BY  USER.  ARGUMENTS  NOT 
AS  CLANKS. 

TNAME-  ESSENTIALLY  TOKEN  CHAIN 
NAME  OF  RELATION  AND  NAMES  OF 
N  -  NUMBER  OF  TOKENS  IN  CHAIN. 

44*4*4**44**44  <444**4*<4***4**4*4****44* 

OUTPUT  PARAMETERS: 

NONE,  S'JT  VIA  ITS  CALL  TO  INSE 
DEFINITION  INTO  RT ABLE ,  AND  VI 
CREATES  AN  NSET  DEFINITION  FOR 
THE  RELATION. 


CALLS  PROCEDURES'. 

DEFINEN.INSFRTN, fetchv , lex 


*****4**4-4 


******* *.,****.*..«♦.*«• ****defoooio 
*..«.. •».••*•*..•. *•**•*•«  dr  00010 

*  DR  00020 

•  dr  00030 

»«•..**.*•**•••*•*••»•••*/  DR  00040 

DR  00050 

»/  DR  00060 

*/);  DR  00070 

.**».,.**•*»•»*.*.*.•**•••  OR  00080 

DR  00090 

PROCESSING  REQUESTS  TO  DR  00100 

THE  REQUEST  (  I.E  CHECKS  DR  OOUO 
T  RELATION  NOT  PREVIOUSLY  DR  00120 
INEN  TO  DEFINE  THE  NSET  DR  00130 

,  AND  THEN  ISSUES  A  CALL  DR  00140 
DEFINITION  INTO  RT  ABLE .  DR  00150 

OR  00160 

,.....*.*.*•*.**. «,*...*•*  dr  00170 

DR  00 1  BO 

FOOM. NOTES:  DR  00190 

T  ARG  USED  TO  INSERT  TUPLES  DR  00200 
ALLED  ONCE  FOR  EACH  DOMAIN  DR  00210 

DR  00220 
DR  00230 
DR  00240 
DR  00250 

G  ITS  SCAN  OF  THE  COMMAND  DR  00260 
GIVEN  BY  USER  ARE  PASSED  DR  00270 

DR  00280 

CREATED  BY  LEX.  CONTAINS  DR  00290 
DOMAINS  WITHIN  RELATION.  DR  00300 

DR  00310 
DR  00320 

»**»*.*»*»*,*. **..**♦.. ,*•  OR  00330 

OR  00340 

RTN ,  IT  INSERTS  THE  RELATIONDR  00350 
A  ITS  CALL  TO  DEFINEN  IT  DR  00360 
THE  NSET  REPRESENTATION  OF  DR  00370 

DR  00380 
DR  00390 

***•»*,*»•*»•»•*****••*.*•  DR  00400 

DR  00410 
OR  00420 

»»*»*»***. *,**.*....*.*.*/  OR  00430 

DEFOOOl 0 
DEF00020 


G  ITS  SCAN  OF  THE  COMMAND 
GIVEN  BY  USER  ARE  PASSED 

CREATED  BY  LEX.  CONTAINS 
DOMAINS  WITHIN  RELATION. 


r 


i 

lO 

PO 

I 


/»  DEF1NEN  TABLE  */  DEF00030 

X  INCLUDE  DEF A  RG ; • *  * ***0E F00040 
2  1  0  DCL  1  DEF..ARG,  /*  USED  TO  DEFINE  AN  NSET  */  DCL00010 

2  NNAMU  8IT(64),  /•  N AMI  OF  NSET  •/  DCL00020 

2  NATTR  BIT<8),  /*  NUMBER  OF  ATTRIBUTES  ♦/  DCL00030 

2  ATTR(20),  /*  FOR  EACH  ATTRIBUTE  */  DCL00040 

3  ANAME  BI T ( 64 ) ,  /•  ATTRIBUTE  NAME  */  DCLOOOSO 


3  K_TYPE  B I T ( 8 ) :  /•  UNIQUE  KEY  OR  NOT  */  DCL00060 


DC  L  00070 
DEF00040 
DEF  00050 

/*  INSERTN  TABLE  ♦/  DEF00060 

3  1  0  DCL  1  INSERT. ARG,  DEF00070 

2  MNAI/.E  BI  T  ( 64  )  I N I T  (UNSPEC  (  '  RT  ABLE  •)),  DEFOOObO 

2  NATTR  Bir<8)  I N I T ( * 000000 1 0 • B) ,  DEF00090 

2  ATT  R(20) .  DEF00100 

3  ANAME  B 1 T ( 64 )  INI Tf UNSPEC ( 1 RNAME  ').  DEF00I10 

UNSPEC ( 1 DNAME  •  )),  DEF00120 

3  VALUE  6  2  T ( 320 ) ;  DEF00130 

DE  F  00 1 40 

/•  FETCHV  TABLE  »/  DEF00150 

X  INCLUDE  FVARG; ♦♦ . DEF00160 

/»  FETCHV  TABLE  -USED  TO  RETRIEVE  INSTANCES  OF  A  DOMAIN  »/  DEF00010 

4  1  0  DCL  1  F V_AR  G ,  DEF00020 

2  D_N AME  B I T ( 64 ) ,  /*  NAME  OF  DOMAIN  •/  DEF00030 

2  KEY  VAL  B 1 T ( 1 60 ) ■  /*  KEY  TO  SEARCH  ON  */  DEF00040 

2  FOUND  BI T < 1 ) .  /*  IF  FOUND.  ’ 1  * B . OTHERWI SE  '0‘B*/  DEF00050 

2  DATA  B I T ( 320 ) ;  /*  RETRIEVED  ELEMENT  */  DEF00060 

DE  F  00070 
DE  F  00 1 60 
DE  FOO I  70 

/•  SUBROUTINES  */  DEF00180 

X  INCLUDE  EOEF  I NN ;*..•».»....♦**♦•******♦♦♦*»»********♦«•»*•**♦*•*** ****DE F 00 1  90 
/•  DEFINE  NSET  MODULE  */  DEC00170 

5  1  0  DCL  DEFINcN  ENTRY<1,  2  BIT(64),  2  8IT(8>,  DEC00I80 

2  (20),  3  B I T( 64 )  ,  3  BIT(6));  DEC00190 

DEC00200 

.MMMtMM.oM  DE  FO0 1  90 

X  INCLUDE  EINSERN; ♦».•*•«*♦*♦•*•**«»♦♦**•*•*.♦♦*»*» **•♦**•***«•♦**** *»**DE F 00200 
/♦  INSERT  NSET  MOCULE  »/  DEC00070 

6  1  0  DCL  INSEPTN  ENTRY ( 1 ,  2  BIT(S4),  2  B I T (8) ,  2  (20),  DEC00080 

3  B I T ( 64 )  ,  3  BIT ( 320 ) ) I  DEC00090 

OE  F  00200 

X  INCLUDE  EFETCHV :**♦*•♦»******•»*•*****•♦**•«•*•»****•* ♦•••******»*****DEF00210 

/♦  USED  TO  FETCH  INSTANCES  OF  DOMAINS  ♦/  DEFOOOIO 

7  1  0  DCL  FETCHV  ENTRY ( 1 ,  2  BIT(64),  2  BIT(160),  DEF00020 

2  C I T( 1 )  ,  2  SI T ( 320 ) ) ;  DEF00030 

OEF00040 

0EF00210 


•••DEF00220 

/•  LEXICAL  ANALYZER  */ 

DEC001 10 

a 

1 

0 

DCL  LEX  ENTRY(FIXED  BIN(t5),(»)  CHAR{8)); 

DEC00120 

DE  F  00220 

DE  F  00230 

/»  MI  SCELLANEOUS  *■/ 

OEFC0240 

9 

1 

0 

OCL  T NAME (20)  CHAR(8), 

DE  F  00250 

TREL  CHAR(8j , 

DEF002G0 

I  HD  110)  FIXED  BIN (15), 

DEF00270 

TUUI.'  FI  XED  6  I N  (  8  )  , 

DE  F  00280 

(  I , f  , N2 )  FIXED  81N( 15) , 

DE  F  00290 

TRUE  B l  1(1)  I N 1 T. (  1  1  ‘  B)  ; 

DE  F  00300 

DEF00310 

/*  START  SUBROUTINE  »/ 

DE  F  00320 

10 

1 

0 

TREL  *  TNAM  E ( 2 ) ; 

DE  F  00330 

DE  F  00340 

/•  GET  RELATION  NAME  */ 

DE  F  00350 

1 1 

1 

0 

IF  N  =  1 

DEF00360 

THEN  DO; 

DE  F  0037  0 

12 

1 

« 

PUT  SKIP  LIST( 'RELATION  NAME:'); 

DE  F  00380 

13 

1 

1 

'ET  EDIT  (TREL)  (A(8>); 

DE  F  00390 

14 

1 

1 

IF  TREL  a  (8)'  1  THEN  RETURN; 

DE  F  00400 

15 

1 

1 

END; 

DE  F  004 1 0 

DEF00420 

/*  VALIDATE  RELATION  NAME  */ 

DE  F  00430 

16 

1 

0 

D  NAME  =  UN  SPEC ( ' RNAME  ');  KEY_VAL  «  UNSPEC( T  REL) ; 

DEF00440 

ia 

1 

0 

CALL  F  ETCMV (FV_ARG); 

DE  F  00450 

19 

1 

0 

IF  FOUND 

DE  F  00460 

THEN  DO; 

DEF  00470 

20 

1 

1 

PUT  SKIP  LIST  ('RELATION  ALREADY  DEFINED.'  ){ 

DE  F  00480 

21 

1 

1 

RE  1  JiVN  ; 

DE  F  00490 

22 

1 

1 

END; 

DEF00500 

DE  F  005 1 0 

/•  MOVE  DOMAIN  NAMES  DOWN  IN  ARRAY  •/ 

DE  F  00520 

23 

1 

0 

DO  I  =  3  TO  12; 

0EF00530 

24 

1 

1 

T  NAME ( I —2 )  =  TNAME(I); 

DEF  00540 

25 

1 

1 

END; 

DE  F  00550 

26 

1 

0 

N  *  N  -  2; 

DE  F  00560 

DE  F  00570 

/»  CHECK  FOR  CORRECT  NUMBER  OF  DOMAINS  */ 

DEF005B0 

27 

1 

0 

IF  N  >  10 

DE  F  00590 

THEN  PUT  SKIP(O)  LIST  ('TOO  MANY  DOMAINS  SPECIFIED.'); 

0EF00600 

28 

1 

0 

IF  H  >  10  |  N  <  1 

DE  F  006 1 0 

THEN  DO  WHI LE ( TRUE ) ; 

DEF00620 

29 

1 

1 

PUT  SKIP  LIST  ('DOMAIN  NAMES:1); 

DEF00630 

30 

1 

1 

CALL  LEX(N.TNAME); 

0EF00640 

31 

1 

1 

IF  N  =  0  THEN  RETURN; 

DEF0C650 

32 

1 

1 

IF  N  <  11  THEN  LEAVE ! 

DEF00660 

33 

1 

1 

PUT  SKIP(O)  LIST  (‘TOO  MANY  DOMAINS  SPECI FI  ED. * ) J 

DEF00670 

34 

1 

1 

END; 

0EF00680 

DEF00690 

/«  VALIDATE  0OMA I N  NAMES  */ 

DEF00700 

35 

1 

0 

D  NAME  *  UNSPEC( ‘ DNAME  *); 

0EF007 1 0 

36 

1 

0 

DO  I  =  1  TO  N ; 

DE  F  00720 

37 

1 

1 

DO  WHILE( TRUE); 

DE  F  00730 

36 

1 

2 

KE  Y_VAL  =  UNSPEC( TNAME( I ) ) ; 

DE  F  00740 

39 

1 

2 

CALL  FeraiV(fV_ARG) ; 

DEF00750 

40 

1 

IF  FOUND  THEN  LEAVE; 

DEF00760 

41 

1 

2 

put  skip  edit  {’domain  1 , t name ( i ) , *  undefined:’) 

DEF  00770 

(A, a. A) ; 

DE  F  00780 

42 

1 

2 

GET  EDIT  (TNAME(I))  (A(8)); 

DE  F  00790 

43 

1 

2 

IF  TN 4f,1£ (  I )  »  (8)'  •  THEN  RETURN; 

DEFOOBOO 

44 

1 

2 

ENO; 

DE  T  008 1 0 

45 

1 

1 

END; 

DE  F  00820 
DE  F  00830 

/•  CALL  INSERTN  TO  ADO  NEW  RELATION  TO  TABLE  */ 

DE  F  0004  0 

46 

1 

0 

VALUE ( 1 )  =  UNSPEC ( TREL ) ; 

DE  F  00850 

47 

1 

0 

DO  I  *  1  TON; 

DE  F  00860 

40 

1 

1 

VALUEI2)  =  UNSP£C( TNAME< I )) ; 

DE  F  00070 

49 

1 

1 

CALL  INSERTN! INSERT_ARG) ; 

DEFOOBOO 

50 

1 

1 

END; 

DE  F  00890 
OE  F  00900 

/*  CALL  OEFINEN  TO  CREATE  A  NEW  NSET  */ 

DE  F  009 1 0 

51 

1 

0 

DEF  ARG.NNAME  =  UNSPEC! TREL) ;  TNUM  c  N;  DEF  ARG . NATTR  ■  TNUM; 

DE  F  00920 

54 

1 

0 

DO  I  =  1  TO  N; 

DEF00930 

55 

1 

1 

DEF_ARG .ANAME! I )  ■»  UNSPEC ( TNAME ( I) ) ; 

DE  F  00940 

56 

1 

1 

END; 

DE  F  00950 

57 

1 

0 

K_TYPE  =  1 0  0000000 ' B; 

DEF 00960 

56 

1 

0 

PUT  SKIP  LIST  ('UNIQUE  DOMAIN  INDEXES:’); 

DE  F  0097  0 

69 

1 

0 

CALL  L  6  (M2,  TNAME); 

DE  F  00980 

60 

1 

0 

DO  I  !  1  TO  N2; 

DEFOO990 

61 

1 

1 

IF  VERI FY( TNAME! I) , :  123456769’)  «  0  & 

DEF01000 

BIN( TNAME! 1 ) )  >=  1  &  B IN( TNAME ( I ) )  <■  N2 

DEFOlOlO 

THEN  K_ TYPE! B IN ( TNAME ( I )) )  »  '00000001’B; 

DEF01020 

b2 

1 

1 

END; 

DEF01030 

63 

1 

0 

CALL  DEFINEN(OEF_ARG); 

DEF  01 040 
DEF01050 

64 

1 

0 

END  DEFREL; 

DEF01060 

-195 


i 


i 


2 


%  INCLUDE  DEFV1EW;*. .**.*»*♦*.****.*»*»»*.*«*•••******»***»*»♦*♦**•*** ••DEF0001 0 

FOROOOI 0 

«  *  FOR00020 

«  MODULE  DESCRIPTION  *  FOR00030 

FOR00040 

0  DEFVlEw;  PROCEDURE  FOR00050 

(N,  /*  FIXED  BIN( 1 5)  •/  FOR00060 

TNAME  /.  (20)  CHAR ( 8  )  ./);  FOR00070 

/*«.****•****.**.«**«*«««**•*«..<**...**..*»««*»•«*..*••*****•««••**•  F0R00080 

.....  PURPOSE:  F0R00090 

.....  THIS  MODULE  IS  RESPONSIBLE  FOR  PROCESSING  REQUESTS  TO  FOROOIOO 

.....  DEFINE  VIEWS,  WHERE  A  VIEW  IS  A  COLLECTION  OF  PREVIOUSLY  FOROOIIO 

.....  CEFINEO  RELATIONS  TO  WHICH  A  USER  MAY  HAVE  ACCESS.  EVERY  FCR00120 

.....  VIEW  15  IOENTIFIEO  BY  A  UNIQUE  ID.  THIS  MODULE  VALIDATES  FOR00130 

.....  1  HE  REQUEST  (CHECKS  THAT  THE  RELATIONS  EXIST,  AND  THAT  FOR00140 

.....  THE  VIEW  I.O.  IS  UNIQUE),  AND  THEN  INSERTS  THE  VIEW  FDR00I50 

.....  DESCRIPTION  INTO  VIABLE  VIA  A  CALL  TO  INSERTN.  F0R00T60 

.....  FOROOI70 

F0R00180 

.....  METHOD:  FOR00190 

.....  LOGIC  IS  VIRTUALLY  THE  SAME  AS  OEFREL  AND  DEFDOM.  FQR00200 

FOR002I0 

.....  INPUT  PARAMETERS:  FOR00220 

.....  ARGUMENTS  PASSEO  ARE  CREATED  BY  LEX  DURING  ITS  SCAN  OF  THEFOROO230 

.....  USERS  COMMAND  LINE.  FOR00240 

.....  N  -  THE  NUM3ER  OF  TOKENS  FOUND  IN  THE  COMMAND  LINE.  FOR00250 

.....  TNA  IE  -  THE  TOKEN  CHAIN  CREATED  BY  LEX  CON AT  A  IN  I NG  THE  F0R00260 

.....  VIEW  ID  AND  THE  NAME  OF  THE  RELATIONS  CONTAINED  FOR00270 

»*»»»  IN  THE  VIEW.  FOP00280 

.....  F0R00290 

FORQ0300 

.....  OUTPUT  PARAMETERS:  F0R003I0 

.....  NONE ,  HOWEVER,  IT  DOES  INSERT  ENTRIES  INTO  THE  VTABLE  AS  FOR00320 

.....  A  RESULT  OF  ITS  CALLS  TO  INSERTN.  THESE  ENTRIES  CORRESPONDF OR 00330 

.....  TO  THE  VIEW  DEFINITIONS.  FOR00340 

.*•**  FOR00350 

.**.*.*******»♦•.♦*•*.**•******♦***.*•*♦♦**••*•*»****•♦**********•***  F0R00360 

.....  CALLS  PROCEDURES:  F0R00370 

.....  INSERTN, FETCHV, LEX  FOR00380 

FOR00390 

DEF00010 

DEF00020 

/*  INSERTN  TABLE  «/  DEF00030 

0  DCL  1  INSERT  ARG,  0EF00040 

2  NNAME  BI T ( 64 )  INIT(UNSPEC( 1 VTABLE  *)).  DEF00050 

2  NATTR  BIT(8)  IN  I T ( ' 000000 1 0 ‘ B) ,  DEF00060 
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3 


4 


5 


6 


7 


8 


9 

10 
1 1 
12 
13 


2  ATT  R (20  )  ,  DEF00070 

3  ANAME  8 1 T ( 64 )  INI T ( UNSPEC  (  1 1 D  ').  DEF00080 

UNSPEC ( *  RNAME  *)).  DEF00090 

3  VALUE  BIT (320 ) ;  DEF00100 

DEF001 10 

/•  FETCHV  TABLE  »/  DEF00120 

%  INCLUDE  FVARG; .»..♦..«..»».**.•*»***«..*.*»*.***. .»*•*•**•*•*•••*•* »*»DE F 00 1 30 

/•  fetch'1  table  -used  to  retrieve  instances  of  a  domain  •/  defoooio 

1  0  DCL  1  FV_ARG,  OE  F  00020 

2  DJiAME  B I T ( 64 ) ,  /*  NAME  OF  DOMAIN  •/  DEF00030 

2  KEY  _v AL  B I T ( 1 60 ) ,  /*  KEY  TO  SEARCH  ON  •/  DEF00040 

2  FOUND  B I T ( 1 ) ,  /*  IF  FOUND,  1 1 1 B.OTHERWI SE  ‘0‘B*/  0EF00050 

2  DATA  BI T ( 320 ) ;  /•  RETRIEVED  ELEMENT  •/  DEF0C060 

DEF00070 

...............  DEF00130 

DEF00140 

/»  SUBROUTINES  »/  DE F 00150 

X  INCLUDE  El NS ERN ;•«*.♦«♦»»•»»**♦*♦****♦*»•*♦*****.*•**•*•*****•****•*** DBF 00 160 
/-  INSERT  NSET  MOOULE  •/  DEC00070 

1  0  DCL  INSERTN  ENTRY ( 1 ,  2  BIT<64),  2  BlT(8),  2  (20).  DEC00080 

3  8 1 T ( 64 )  ,  3  BIT(320));  DEC00090 

.* * .**«♦***.*..* .  DE  FOG  1 60 

X  INCLUDE  EFETCHV; ................ DE F 00 1 70 

/«  USE 0  TC  FETCH  INSTANCES  OF  DOMAINS  */  DEFOOOIO 

1  0  OCL  FETCHV  ENTRY(1,  2  B I T ( 64 ) ,  2  BIT(160).  DEF00020 

2  B I T ( 1 ) ,  2  BI T ( 320) ) ;  DEF00030 

DE  F  00040 
DE  FO0 1 70 

X  INCLUDE  ELEX  ;»  *♦• .«»*».».♦♦*****.*♦****..*.*♦♦♦***•*********••*•* ***»DE F 00 1 80 
/*  LEXICAL  ANALYZER  */  DEC00110 

1  0  OCL  LEX  ENTRY(FIXED  81N(15),(*)  CHAR(B));  DEC00120 


DEF00180 
DE  F  00 1 90 
DE  F  00200 
DE  F  002 1 0 
DEF00220 
DEF00230 
DE  F  00240 
DE  F  00250 
DE  F  00260 
DEF  00270 
DE  F  00280 
DE  F  00290 
OE  F  00300 
0EF00310 
DE  F  00320 
DE  F  00330 
DEF00340 
OEF00350 


/*  MISCELLANEOUS  */ 

1  0  OCL  T NAME (20)  CHAR(B), 

1 Y i Ew  C  HAfi(3 ) • 

( I , N )  F IXED  BIN( IS) , 

TRUE  BI T( 1  )  INITIAL<  *  1 *B)  ; 

/•  START  SUBROUTINE  «/ 

1  0  TVIEW  =  TNAME  ( 2 ) ; 

/«  GET  VIEW  ID  */ 


1 

0 

IF  N 

=  1 

THEN 

DO; 

1 

1 

PUT 

SK 

IP 

LIST! ‘VI 

I Ew  id; • ) ; 

1 

1 

GET 

ED 

IT 

(TVIEW) 

( A( 8  )  ) ; 

1 

1 

IF 

TV  I 

EW 

«  ( 8) 1  1 

1  THEN  RETURN; 

1 

1 

ENP 

* 

\ 
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1 4  1  0 

16  1  0 

17  10 

18  1  1 

19  1  1 

20  1  1 


/•  VALIDATE  VIEW  ID  •/ 

0  NAME  =  UNSPECI *  ID 
CAUL  Fp  T CHV ( FV_ARG ) ; 

IF  FOUND 
THEN  DO; 

PUT  SKIP  LIST  (‘10 
RtTURN  ; 

END; 


1 );  key.val  ■  unspec(TVIEw) ; 


ALREADY  DEFINED.**); 


21 

22 

23 

24 


25 


26 

1 

0 

IF  N  >  10 
THEN  DO  W 

27 

1 

1 

28 

1 

1 

29 

1 

1 

30 

1 

1 

31 

1 

32 

1 

1 

END; 

/*  VAL IDA 

33 

1 

0 

D  NAME  = 

34 

1 

0 

DO  I  -  1 

35 

1 

1 

00  WH 

36 

1 

2 

37 

1 

2 

38 

1 

2 

39 

1 

2 

40 

1 

2 

41 

1 

2 

42 

1 

2 

END; 

43 

1 

1 

END; 

/•  CALL 

44 

1 

0 

VALUE (1  ) 

45 

1 

0 

DO  I  =  1 

46 

1 

1 

VAI.U 

47 

1 

1 

CALL 

48 

1 

1 

END; 

/»  MOVE  TOWN  RELATION  NAMES  IN  ARRAY  •/ 

DO  I  =  3  TO  12; 

TNAMc( I -2)  *  TNAME(I); 

END; 

N  =  N  -  2; 

/»  CHECK  FOR  CORRECT  NUMBER  OF  RELATIONS  */ 

THEN  PU1°SK1P(0)  LIST  ('TOO  MANY  RELATIONS  SPECIFIED.*); 

N  <  I 

im lE ( TRUE ) ; 

PUT  SKIP  LIST  ('RELATION  NAMES!*)? 

CALL  LEX(N.TNAME); 

IF  N  =  0  THEN  RETURN; 

IF  N  <  1  1  THEN  LEAVE  *,  ,  . 

PUT  SKIP(O)  LIST  ('TOO  MANY  RELATIONS  SPECIFIED.*); 


UNSPECI ' RNAME  '); 

TO  N; 

II  L  E  (  TRUE  ) ; 

KEY  VAL  *  UNSPEC( TNAME( I ) ) ; 

CALL  FETCHV(FV_ARG) ; 

IF  FOUND  THEN  LEAVE; 

PUT  SKIP  EDIT  ('RELATION  ’.TNAME(I).'  UNDEFINED!*) 
(  A  ,  A  ,  A  )  » 

GET  EDIT  (TNAME(I))  <A(8))  ; 

IF  TNAME(I)  *  (8)’  *  THEN  RETURN; 


UNSPEC ( T V I EW ) ; 

3  N; 

2)  «  UMSPEC( TNAME( I ) ) ; 


DE  F  00360 
DE  F  00370 
DEF00380 
DE  F  00390 
DEF00400 
DEF00410 
DE  F  00420 
DE  F  00430 
DEFC0440 
DP  F  00450 
DEF  00460 
DE  F  00470 
DEF00480 
DEF00490 
DE  F  00500 
DEf 00510 
DEF 00520 
DEF  00530 
DEF  00540 
DEF00550 
DE  F  00560 
DEF00570 
DE  F  00580 
DE  F  00590 
DE  F  00600 
DEF00610 
DE 1 00620 
DE  F  00630 
DE  F  00640 
DEF  00650 
DE  F  00660 
DEf  00670 
DEf 00680 
DE  F  00690 
DEFC0700 
DEF  007 1  0 
DEf 00720 
DE  F  00730 
DE  F  00740 
DEf 00750 
DEF00760 
DEF00770 
DE  F  00780 
DEr00790 
DEF  00300 
CEFC081 0 
DE  F  00820 
DEF00830 
DEF00840 
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i 


i 


i 


X  INCLUDE  QUER Y ;•*••**•*»•*•**•*•******•*••*•••***.»*•*•••**•*••**••* •••QUE00010 

DOC0031 0 

*  •  DOC00320 

•  MODULE  DESCRIPTION  •  DOC00330 

*•»•*•*••»*«****•**•••**.*••*•***»•*•*»*•*•••*•»»*•.«••».»*•**•••••*/  DOC00340 

1  0  Query:  PROCEDURE;  DOC00350 

D0C00360 

•••**  DOC00370 

•*•••  PURPOSE:  PROMPTS  for  DISPLAY.  INSERT,  RELATIONAL  OPERATOR.  AND  DOC00330 
PRINT  COMMANDS.  D0C00390 

««••«  DOC00400 

DOC00410 

* • « • •  DOC00420 

»*•••  METHOO:  NOT  SIGNIFICANT  DQC00430 

«••••  DDL00440 

DOC00450 

INPUT  PARAMETERS:  DOC00460 

*•••«  NONE  DOC00470 

*••••  DOC004B0 

♦•••♦♦*•♦•»•♦<*♦♦*»*••********•*»*****»•»****»»••»»***••*»•••♦*•••♦*•  DOC00490 

.  OUTPUT  PARAMETERS:  DOCOObOO 

D0C005 1 0 

**••*  OUTPUT:  NONE  DOC00520 

•**.*••*.*•*•<•*»*. ....... DOC00530 

*•••«  CALLS  PROCEDURES:  DOC00540 

•*•••  DQC00550 

GETVIEW,  VlEWCAT,  SHVIEW,  SHREL.  JOIN,  SELECT,  DOC00560 

OQC00570 
OUEOOOIO 
QUE 00020 

/*  CURRENT  VIEW  ID  »/  OUE00030 

2  1  0  OCL  C_IO  CHAR{ 8 )  EXTERNAL,  QUE00040 

GET  BlT(t)  STATIC  EXTERNAL  INIT('l*B):  0UE00050 

QUE00060 

/«  COMMAND  LISTS  «/  QUE00070 

3  1  0  DCL  OPMO)  CHAR  ( 8 )  INITIAL!  'GETVIEW*  ,  'CUR  VIEW  ,  OUE00080 

' V I EW_C  AT  *,'SH  VIEW',' SH_REL ' , 1  JOIN '  ,  ”  QUE00090 

•  SELECT  '  ,  'PROJECT* ,  'PRINT ' LOAD* ) ,  OUEOOtOO 

A  OP  (10)  CHAR  (  8  )  INI  T  l  AL(  '  GV '  ,'CV*  ,'VC*  ,'SV*  ,'SR',  QUEOOMO 

*  J ’ , *  S  *  .’PJ'.'PR’.'L'J;  QUE00120 

0UE001 30 

/«  SUBROUTINES  •/  QUE00140 

X INCLUOE  EGET  v IW; •  *  *****•*•*•*•••***•*•***»•**•••♦*•*•• •••••••••♦•••••♦QUEOO ISO 

4  1  0  OCL  GETVIEW  ENTRY (CHAR( 8 )  )  ;  0UE00020 

••*«*•*«••»****•*  QUEOOtSO 

X INCLUOE  ESHV 1 cw ;*•*•*•**»«.**•**♦*••**•*•»**.*.*«.**•**•*•**•**••• ••••QUE001 60 
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i 


5  t  0  DCL  SMVIEW  ENTRY;  OUE00060 

.................  QUE00160 

X  INCLUDE  ESHREL ; »*«•**•«*•*•*•*••»*•*••*•***•*♦•»•»*•**•*•*•*•***•*» OOE 00 170 

6  1  0  DCL  SHREL  E NTRY ( CHAR ( 8 ) ) ;  QUE00080 

................  QUEOO 170 

X  INCLUDE  EJ01 N; •  »«» *QUEOO 1 80 

7  1  0  DCL  JOIN  ENTRY((*)  CHAR(8));  0UE00100 

...............  QUEOO 180 

%  INCLUDE  E SELECT ;*♦*•»«»»*♦»•*•****♦*»***••**•**»**«*** **********»*****QUE00190 

8  1  0  DCL  S  E  L'  CT  EN1RY((»)  CHAR(8))i  QUE00120 

.................  QUEOO 1 90 

X 1NCLU0E  EPRO JET ; **********»*****QUE00200 

9  1  0  DCL  PROJECT  ENTRY ( ( »  )  CHAR(8))i  QUE00140 

QUE 00200 

X  INCLUDE  EPRI NT ; •*• »*.»..*»•«»*♦*»»•**«**•.*.*♦*•»*♦•»**•**•*•******•* »QUE002 1  0 

10  I  0  DCL  PRINT  ENTRY{CHAR(8) ) ;  QUE00160 

................  QUE002 1 0 

X INCLUOE  ELOAD; •••* .........•*.»**..*♦*****•..*.*....••***••****••**** *QUE00220 

11  1  0  DCL  LOAD  EN TRY ( CHAR ( 8 ) ) ;  QUEOOIBO 

...............  QUE00220 

X  INCLUDE  ELEX ***QUE00230 
/*  LEXICAL  ANALYZER  */  DEC00110 

12  1  0  DCL  LEX  ENT  RY( FI XED  8IN(I5),(*)  CHAR(8));  DEC00120 

..............  QUE  00  2  30 

X INCLUOE  EDEL IM; *•* ...»♦*»..♦•• ............ ...,...*♦***•***.***•*••**. »QUE 00240 

13  1  0  DCL  DELIM  E NTRY ( 8 1 T ( 1 ) )  RETURNS ( Bt T ( 1 )) ;  QUE00200 

QUC00210 

................  QUE  00240 

QUE00250 

/.  MISCELLANEOUS  */  QUE00260 

14  1  0  DCL  NAME (20  )  CHAR(B),  QUE00270 

N _ TOK  FIXEO  B I N ( 1 5 )  ,  QUE00280 

TRUE  01 T(  1  )  INIT('I'B);  QUE00290 

QUE00300 

/•  START  SUBROUTINE  •/  QUE00310 

15  1  0  PUT  SK 1 P ( 2 )  LIST  (' —  READY  FOR  QUERIES  — *){  QUE00320 

QUE  00330 

/•  get  queries  •/  QUL00340 

16  t  0  DO  WHIIE(TRUE);  QUE00350 

17  1  1  PUI  SKI  P  ( 2 )  LIST  (•*}:•);  QUE003G0 

10  1  1  CALL  LEX(N_TOK.NAME) ;  QUE00370 

19  1  1  IF  N  TO K  «  0  THEN  RETURN;  QUE0C380 

QUE  00390 

/♦  SELECT  COMMAND  */  QUE00400 

20  1  1  S EL  COM:  SELECT( NAME( 1 ) ) ;  QUE00410 

QUE00420 

/*  GET  VIEW  */  QUE00430 

21  1  2  WHEN(0P(1), AQP( 1 ) )  CALL  GETVI EW ( NAME ( 2 ) ) ;  QUE00440 

QUE00450 
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Y  J 


22  1  2 

23  1  2 

24  1  2 

25  1  2 

26  1  2 

27  1  2 

28  1  2 

29  1  2 

30  1  2 

31  1  2 

32  1  2 

33  1  2 

34  1  2 

35  1  2 

36  1  3 

37  1  3 

38  1  3 

39  1  3 


/*  CURRENT  VIEW  «/ 

WHENtOP (2) . AQP(2) ) 

IF  GET 

THEN  PU1  SKIP  LIST  ('NO  VIEW  LOADED  VET.')} 
ELSE  PUT  SKIP  EDIT  (C_ID)  (X(10),A); 

/♦  VIEW  CATALOGUE  •/ 

WHEN(OP (3) .AOP(3) )  CALL  VIEWCAT; 

/«  ‘HOW  VIEW  •/ 

WHEt.IOP  (4)  ,AOP(4)  ) 

IF  GET 

THEN  PUT  SKIP  LIST  ('NO  VIEW  LOADED  YET.'); 
ELSE  CALL  SHVIEW; 

/*  SHOW  RELATION  */ 

WH£N(OP  (5)  .AOIM5)  ) 

IT  GET 

1  HEN  PUT  SKIP  LIST  ('NO  VIEW  LOADED  YET.*); 
ELSE  CALL  SHRE  L ( NAME ( 2 ) ) ; 

/*  JOIN  «/ 

WHEN(OP (6) , AOP(6) ) 

IF  DELIM('I'B)  *  ‘ 0 ' 8  THEN  CALL  J0IN( NAME ) ; 

/»  SELECT  •/ 

WHEN ( OP ( 7 ) , AOP<7) ) 

IF  DFLIM('O'B)  *  '0*8  THEN  CALL  SELECT (NAME ) S 

/♦  ROJECT  »/ 

WHEN(OP (8) , AQP ( 8 ) ) 

IF  DEL  I M( 1 0 1 8 )  =  1 0 ' 8  THEN  CALL  PROJECT ( NAME ) ; 
/*  PRINT  */ 

WHEN(OP (9) ,A0P(9) )  CALL  PR  I  NT ( N AME ( 2 ) ) ; 

/*  LOAD  */ 

WHEN ( OP ( 10) ,AOP( 10) ) 

I  F  GET 

THEN  PUT  SKIP  LIST  ('NO  VIEW  LOADEO  YET.')! 
ELSE  CALL  LOAD( NAME ( 2 ) ) ; 

/•  INVALID  OPERATORS  */ 

OTHERWI SE 

00; 


QUE00460 
QUE00470 
QUE00480 
0UE00490 
QUE00500 
OUE00510 
QUE00520 
OUE  00530 
QUE  00540 
0UE00S50 
QUE  00560 
0UE00570 
OUt  005B0 
QU  E  00590 
OUE  00600 
OUE00610 
QUF.00620 
OUE  00630 
Out  00640 
OUE00650 
OUE  00660 
OUE  0067  0 
OUE  006110 
QUE00G90 
QUE  00700 
OUE  007 1 0 
0UE00720 
0UE00730 
OUE  00740 
OUE  00750 
OUE00760 
QUE  00770 
OUE  00780 
QUE00790 
OUE00800 
OUE  008  I  0 
OUT  00820 
QUE.00830 
OUt  00840 
0UE00850 
OUEOOBbO 
0UE00870 
OUE  00880 
0UE00890 
QUE00900 


PUT  SKIP  EDIT  ( NAME ( 1  ) , '  IS  AN  INVALID  COMMANO')  ( A , A ) ;0UE009 1  0 
PUT  SKIP  LIST  ( ' RfcTYPE  COMMAND:');  0UE00920 


GET  EDIT  ( NAME ( 1  )  )  <  A ( B ) ) ;  0UE00930 

IF  NAME(l)  "»  (8)'  '  THEN  GO  TO  SEL.COMI  0UE00940 


lofcw.  ■ 


V; 


Q UE00950 
QUE00960 
QUE00970 
QUE00980 
QUE00990 


I 


I 

K» 

O 

Ul 

I 


X  INCLUDE  GETVIEW;**  »»««*.*««»*«*«»«**»»»*••*«»**•»»*•****»»♦»»*»»** «*».GET00010 

/...»•«. . OOC00590 

•  *  D0000600 

•  MODULE  DESCRIPTION  *  DOC00610 

•  .... . DOC00620 

1  0  GETVIEW:  PROCEDURE! TNAME  /*  CHAR(8>  •/);  D0C00630 

. . DOC00640 

PURPOSE:  DOC00650 

•••••  ......  LOAD  A  VIEW  FOR  QUERIES  BY  CREATING  RELATION  TABLES  DOCOO66O 

.....  ALONG  WITH  THEIR  OOMAINS  FROM  ALL  RELATIONS  IN  THE  DOC00670 

.....  PARTICULAR  VIEW.  DOC00G80 

.....  D0000690 

DOC00700 

.....  METHOD:  DOC007 1 0 

.....  NOT  SIGNIFICANT  DOC00720 

.....  DOC00730 

D0C00740 

.....  INPUT  PARAMETERS:  DOC00750 

.....  t)  TNAME  -  NAME  OF  VIEW  DOCOO760 

.....  DOC00770 

DOCOO70O 

.....  OUTPUT  PARAMETERS:  DOC00790 

.....  NONE  DOC00800 

.....  DOC00810 

OOC0O820 

.....  CALLS  PpOCE  OURES :  DOC00830 

.....  FETCHT,  FETCHV  DOC00840 


DOC00850 
/  DOC00860 

GETOOOtO 
GE  T  00020 


/»  CURRENT  VIEW  INDEX  «/  GE100030 

2  1  0  DCL  C_IO  CHAR(8)  EXTERNAL,  GET00040 

GET  BIT  (1  }  STATIC  EXTERNAL;  GET00050 

GE  T  00060 

/*  FETCHT  TABLE  */  GET00070 

X  INC LUO E  RETARG; . . ♦.••♦••••GET  00080 

3  1  0  DCL  1  R£T_ ARG ,  /»  USED  TO  RETRIEVE  NSETS  »/  DCL00090 

2  NUMN  BIT(B),  /.  NUMBER  OF  NSETS  »/  DCL00100 

2  NSET ( 5 )  81 T ( 64 ) ,  /•  NAMES  OF  NSETS  TO  BE  FETCHED*/DC LOO t 10 

2  ARGSt  20) ,  /*  INFO  FOR  EACH  ATTRIBUTE  */  DCL00I20 

3  N_ I NDE  X  B I T ( 8 ) ,  /*  WHICH  NSET  IS  THIS  IN  */  DCL00130 

3  NAME  B I T ( 64 )  ,  /»  NAME  OF  ATTRIBUTE  */  0CL00140 

3  RET  INFO,  /*  RETRIEVE  INFORMATION  •/  DCL00I50 

(4  FETCH,  /.  IS  IT  TO  BE  FETCHED  */  DCL00160 

4  SAME  )  BI T ( 8 ) ,  /.  SAME  AS  PREVIOUSLY  DCL00170 


I 


I 

N) 

O 

•*. 

I 


DEFINED  DOMAIN  •  /  DCL00180 

4  VALUE  B 1 T ( 1 60  )  ;  /‘VALUE  TO  SEARCH  ON  OR  DCL00190 
NONE  */  DCL00200 


GE  T  00080 
GE  T  00090 

/*  FETCHT  OUTPUT  •/ 

GE  T  00 1 00 

•GETOOt 1 0 

/«  FETCHT  OUTPUT  •/ 

DEC00020 

4 

1 

0 

DCL  1  DOM  RET  CONTROLLED  EXTERNAL,  /•  STACK  OF 

DATA  VALUES  */ 

DEC00030 

2  D  ID  FIXED  B1N( 15),  /•  NSET  AND  ATTRIBUTE  10  •  / 

DEC00040 

2  VALUE  BI T ( 320 ) ;  /*  DATA  VALUE  •  / 

DECOOOSO 
GET00110 
GE 100120 

/*  FETCHV  T  ABLE  •/ 

GE  T  00 1 30 

5 

1 

0 

DCL  t  FV  ARG, 

GE  T 00 1 40 

2  D  NAME  BI T (64) , 

GE 1 00 1 50 

2  KEY  VAL  B I T ( 1 60 ) , 

GET  00 160 

2  FOUND  81 T ( 1 ) . 

GE  T  00 1 70 

2  DUMMY  BIT (320); 

GE  T  00 1 00 
GE 1 00 1 90 

/•  RELATION  TABLES  •/ 

GET  00200 

6 

1 

0 

DCL  1  T 1  ARG( 20 )  EXTERNAL, 

GE  T  002 1 0 

2  M  B I  T  ( 0  )  . 

GE  T  00220 

2  Cl ( 5)  BI T(64) , 

GE  T  00230 

2  T2<  20)  , 

GE  T  00240 

3  N 2  BIT(B) , 

GE  T  00250 

3  C  2  8 1 T ( 64  )  , 

GE  T  00260 

3  T  3 , 

GE  T  00270 

4  N3  8 1 T ( 8 ) , 

GE  T  00280 

4  N4  BIT (8) , 

GET  00290 

4  C3  B l T ( 1 60 ) , 

GE  T  00300 

R  INO  FIXED  8 I N ( 1 5 )  EXTERNAL, 

GE  T  0031 0 

R  E  L ( 20 )  CHAR ( 8 )  EXTERNAL, 

GE  T  00320 

N DOM ( 0 : 20 )  FIXED  B I N ( 15)  EXTERNAL; 

GE  T  00330 
GE  T  00340 

/*  SUBROUTINES  */ 

GE  T 00350 

♦GET00360 

/•  FETCH  NSET  MODULE  */ 

DEC001 10 

7 

1 

0 

DCL  FETCHT  ENTRY ( 1 ,  2  BIT(B),  2  (5)  BIT(64),  2 

(20),  3  BIT ( 8 ) , 

DEC00120 

3  BI T ( 64 ) ,  3,  4  BIT(B),  4  BIT(8),  4  B1T(160)) 

; DEC001  30 

GE  T  00360 

•  GET  00370 

/•  USED  TO  FETCH  INSTANCES  OF  DOMAINS  */ 

DE  F  0001 0 

B 

1 

0 

DCL  FETCHV  ENTRY ( I ,  2  BIT(64),  2  BI T ( 160) , 

DEF00020 

2  B I T ( t ) ,  2  BI T ( 320) ) ! 

DE  F  00030 
DEF00040 
GET  00370 

GE  T  00360 
GET  00390 


/«  MISCELLANEOUS  ♦  / 
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OCL  TNAME  C HAR ( 6 ) , 

(BUFF.TEMP)  B I T (64 ) , 
(1.0_INO)  FIXED  BIN ( 15 ) ; 


10 

1 1 
12 

13 

14 


15 

17 

18 

19 

20 
21 
22 


24 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 
38 


39 

42 

44 

45 

46 

47 

48 

49 


/•  START  SUBROUTINE  */ 


0 

0 

0 

1 

1 

1 

0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

1 

1 


/•  GET  VIEW  ID  •/ 

IF  TNAME  *  (8)'  ' 

THEN  DtiJ 

pu  sk  ip  list  ( 1  view  Id: * ) ; 

GE:  EDIT  (TNAME)  (A(8))J 
IF  TNAME  ■  (8)‘  *  THEN  RETURN; 

END; 

/.  VALIDATE  VIEW  ID  •/ 

D_NAME  =>  UNSPECC1D  KEV.VAL  ■  UNS PEC ( TNAME)  { 

call  fetchv <fv_arg): 

IF  ‘FOUND 
THEN  DO; 

PUT  SKIP  EDIT  (.'ID  *, TNAME,'  UNDEFINED.*)  (A,A,A){ 


C_ 


RETURN  ; 

END; 

ID  *  TNAME;  GET  «  ’O’B; 


>i 


/•  CALL  FETCHT  TO  LOAD  VIEW  */ 

NUMN  =  •00000010' B;  NSET(1)  »  UNSPEC ( * RTABLE 
NSET ( 2  )  =  UNSPEC(  ' VTABLE  '); 

N  INDEX( 1 ), N_IN0EX(2)  *  ’00000001'B; 

NllNDtX'3).NllN0EX(4)  »  '00000010'B; 

NAME  (  2  )  *  U  NipEC  (  '  ONAME  '); 

NAME (  1  ),NAME(3)  *  UNSPE C ( • RNAME  '); 

NAME ( 4  )  =  U  NSPEC (  'ID  * ) ; 

FETCH ( 4  )  =  '  00000000 ' B ; 

FETCH ( 2) ,FE TCH(3) , FETCH! I )  «  '10000000'B; 

SAME (  1  )  . SAM  E ( 2 ) , SAME  <  4 )  •  ‘OOOOOOOO'Bl 
SAME ( 3 )  *  '00010001'B; 

RET  ARG. VALUE  »  '01010101*8;  RET.ARQ. VALUE (4)  •  UNSPEC(TNAME) ; 
CALL  FETCHT (RET.ARG) ; 


/•  CREATE  R  E  T_ARGS  FOR  RELATIONS  */ 
N1  «  'OOOOOOOT'B;  N2  «  '00000001'B; 
N4  «  ' 00000000' Bi  C3  *  '01010101’B; 
TEMP  *  UNSP  E  C ( ( 8 ) '  '); 

R  IND ,D_IND  *  0; 

00  I  =  1  TO  ALLOCATION D0M_RET)/2; 
BUFF  xOOM_RET. VALUE; 

IF  BUFF  *»  TEMP 
THF.N  DO; 

NOOM(R_IND)  ■  D_IND; 


N3 


10000000'B! 


GET00400 
GET00410 
GE  T  00420 
GE  T 00430 
GE  T  00440 
GE  T  00450 
GE  T 00460 
GE  T  00470 
GET004B0 
GE  T  00490 
GE  T  00500 
GE 1 005 1 0 
GE  T  00520 
GE  T  00530 
GE  T  00540 
GET  00550 
GET  00560 
GET  00570 
GET  00580 
GE  T  00590 
GET  00600 
GE  T  006 1 0 
GET  00620 
GET  00630 
GET  00640 
GE 100650 
GE  T  00660 
GE 1 00670 
GE  T  00680 
GE  T  00690 
GE  T  00700 
GE  T  007 1 0 
GET  00720 
GE  T  00730 
GE  T  00740 
GET  00750 
GET  00760 
GE  T  00770 
GE  T  00780 
GE  T  00790 
GETOOBOO 
GE  T  0081 0 
GET  00820 
GET 00830 
GE  T  00840 
GET  00850 
GET00B60 
GE T 00870 
GET00880 


50 

1 

2 

R  INO  ■  R_IND  ♦  1 5 

51 

1 

2 

c7(R_IN0.1)  ■  BUFF; 

52 

» 

2 

D  INO  ■  0; 

S3 

1 

2 

UNSPEC(REL(R_1ND))  -  BUFF 

54 

t 

2 

TEMP  >  BUFF; 

55 

1 

2 

END; 

56 

1 

1 

FREE  DOM  RET; 

57 

1 

1 

D_IND  =  D_IND  +  IS 

5B 

1 

1 

C2(R_1ND,D_IN0)  *D0M_RET. VALUE 

59 

1 

1 

FREE  OOMJTET; 

60 

1 

1 

END; 

61 

1 

0 

NDOM(R  INO)  .  D_ I ND ; 

62 

1 

0 

PUT  SKIP  EDIT  ('VIEW  LOADED.')  (X( 

63 

1 

0 

END  GETVIEW; 

GET 00890 
GET00900 
GET00910 
GET00920 
GET  00930 
GE  T  00940 
GE  T  00950 
GET00960 
GET00970 
GET009Q0 
GET00990 
GET 01 000 
GET01010 
GET01020 
GET01030 


I 

K> 

O 

or 

I 
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%  INCLUDE  SHV1 EW ;*.*****•.*♦««*********•*•******•*•**•••****»****••• *»**SHV00010 

OOCOOBBO 

•  •  DOC00890 

•  MOOULE  DESCRIPTION  *  DOC00900 

0OC0091 0 

1  0  SHV I  EW :  PROCEtURE;  DOC00920 

/.,,«.,«**.**..  *•*..*....*••.*«. •***••*•.......,.•.•••*•. *..*•**..**  DQC00930 

*****  PURPOSE.  DOC00940 

*****  DISPLAY  ALL  RELATIONS,  PERMANENT  AND  TEMPORARY.  IN  D0C00950 

*****  THE  CURRENT  VIEW.  DOC00960 

*****  DOC00970 

DOC  00980 

*****  METHOD:  DOC00990 

.....  NOT  SIGNIFICANT  DDCOlOOO 

.  ....  DOCOIOIO 

DOCO 1020 

•  *•*•  input  parameters:  DOCO 1 030 

•*.*•  NOT  SIGNIFICANT  DOC0I040 

«•*«•  DOCOfOSO 

DOCO t 060 

*....  OUTPUT  PARAMETERS!  DOC0IO70 

•  •*••  DOCO 1 080 

NONE  DOCO 1090 

••**.•......«.•*.•..*•*.***•*••*****•••••*•.•••••*»*•••*•*••**•*••••*  DOCO 1 100 

*****  CALLS  PROCEDURES:  OOCOI1 10 

•«««.  DOCO 1 1 20 

••••*  NONE  DOCO 1 1 30 

•  ••.**.•*.*••**.•.•***•*.*••*«.•••••••»•••*••*•••*•••••*•*•••«••••••/  DOCO I  140 

••*.*..**•»•*..*  SHVOOO 1 0 

SHV00020 

/•  RELATION  NAMES  »/  SMV00030 

2  1  0  DCL  REL ( 20 )  CHAR ( 8 )  EXTERNAL,  SHV00040 

R  IND  FIXED  3  I N( 1 5 )  EXTERNAL,  SHV00050 

I  FIXED  BIN( IS);  SHV00060 

SHV00070 

/•  PRINT  RELATIONS  «/  SHV00080 

3  10  DO  1  *  1  TO  fl  INO!  SHV00090 

4  11  PUT  SKIP  EDIT  ( REL(  I  )  )  (X(10),A);  SHV00100 

5  1  1  END;  SHV00110 

SHV00120 

6  1  0  END  SHVIEW;  SHV00130 


X  INCLUDE  SHRE  L ; « 

/*•**•* . 


MODULE 


DESCRIPTION 


0  SHREL:  PROCECURE( TNAME  /*  CHAR ( B )  */); 

. . . .  *•«**♦*•*****••*•* . . . . . 

PURPOSE 

•♦•••  DISPLAY  ALL  DOMAINS  WITH  THEIR  ATTRIBUTES  OF  A  OIVE 

•♦•••  RELATION. 


*  *  ♦  •  ♦  • 

*  *  *  ♦  * 

METHOD: 

*  ♦  •  *  • 

•  *  *  *  • 

NOT  SIGNIFICANT 

•  ♦  *  •  a  * 

•  ♦  • 

INPUT  PARAMETERS: 

•  •  •  •  ♦ 

*  #  «  *• 

1)  TNAME  -  NAME  OF  RELATION 

•  *  ♦  *  *  ♦ 

•  *  •  *  * 

OUTPUT  PARAMETERS: 

•  *  *  *  * 

NONE 

•  *  ♦  *  ♦ 

*  •  •  *  * 

CALLS  PROCEDURES: 

♦  *  *  *  ♦ 

♦  •  •  *  * 

FETCHT 

•  *  *  #* • 

*/ 


)). 


/•  FETCHT  TABLE 
DCL  1  RET  ARG, 

2  NUMN  BIT(B)  INI T (' OOOOOOOI ' B) , 

2  NSET(S)  B IT (64 )  INIT ( UNSPEC ( ' DTABLE 
2  AT T  R ( 20 ) , 

3  N  INDEX  BI T( 8 )  INI T ( (2)( *  00000001 >  B ) ) . 

3  NAME  B I T ( 64  )  INI T ( UNSPEC ( 1 DNAME  '), 

UNSPEC ( ' DATTR  • ) ) , 

3  RET_INFO, 

4  FETCH  BIT(6)  IN  I T ( ' 0000 0000  * B 1 0000000 ' 6) , 
4  SAME  BIT(S)  INI  T  (  ( 2 ) ( ' 0 0000000 ' 6)  > . 

4  FVALUE  BI T ( 160); 


/*  FETCHT  OUTPUT  •/ 
X INCLUDE  DOMRET;«*» ♦*••«•••• 
/*  FETCI  T  OUTPUT  */ 


•SHR00010 
DOC01160 
DOCOI 170 
DOCOI 180 
DOCOI 1 90 
DOCOI 200 
DOCOI 210 
DOCOI 220 
DOCOI 230 
OOC0124O 
DOCOI 250 
DOCOI 260 
DOC01270 
DOCOI 280 
DOCOI 290 
DOCOI 300 
DOCOI 310 
DOCOI 320 
DOCOI 330 
DOCOI 340 
DOCOI 350 
DOCOI 360 
DOCOI 370 
DOCOI3BO 
DOCOI 390 
DOCOI 400 
DOCOI 410 
DOCOI 420 
SHROOO 1 0 
SHR00020 
SHR00030 
SHR00040 
SHR00050 
SMR00060 
SHR00070 
SHlOOOBO 
SHH00090 
SHROO 100 
SHWOO I  10 
SltROO  I  20 
SHUOOI 30 
SHWOO I  40 
SHWOO 1 50 
$111)00160 
•  SllROOl  70 
DEC00020 
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3  1  0 


4  1  0 


5  1  0 


•  t  0 


7  1  0 


•  *  0 

t  1  1 

10  1  1 

11  10 

13  11 

13  11 

14  1  1 


OCL  1  DOM  RET  CONTROLLED  EXTERNAL,  /*  STACK  OF  DATA  VALUES  •/ 
2  0_I D  FIXED  BIN(IS),  /•  NSET  AND  ATTRIBUTE  ID  •/ 

2  VALUE  BIT(320);  /•  DATA  VALUE  •/ 


/•  RELATION  TABLES  «/ 

DCL  1  T 1 _ARG( 20 )  EXTERNAL, 

2  N1  6 1 T (  8  )  . 

2  Cl  (  5 )  B I T ( 64  ) , 

2  T2( 20) , 

3  N  2  BI T ( 8  )  , 

3  C  2  B I T ( 64 ) , 

3  T  3 

4  N3  BIT (8), 

4  N4  B I T ( 8 ) , 

4  C3  B 1 T ( ICO) . 

R  INO  FIXED  B 1 N ( 1 5 )  EXTERNAL, 

REH20)  CHAR  (  8  )  EXTERNAL. 

N DOM (0:20)  FIXEO  BIN(15)  EXTERNALS 

/«  DOMAIN  ATTRIBUTES  MASK  */ 

DCL  1  f.ECORO. 

2  HYPE  BI  T  (  8 )  , 

2  TLEN  BI T  (  16)  , 

2  TWIN  BI T ( 1 6 )  , 

2  TMAX  BIT( 16)  , 

OATTR  B  I  T ( 56 )  DEFINED  RECORD, 

TYPE  CHAR( 1 ) , 

(BIEN.BMIN.BMAX)  FIXED  B!N(16); 

/•  SUURIUTINES  •/ 

DCL  FETCHT  ENTRY ( 1 ,  2  BIT(8).  2  (5)  BIT(04),  2  (20),  3  8IT(8), 
3  BI T ( 64 ) ,  3,  4  B1T<8),  4  BIT(B),  4  BIT(160)) 

/•  Ml  SC El LANEOUS  •/ 

OCL  T  NAME  CHAR( 8) . 

(  I  . J)  F  I  XEO  BIN( 15)  ; 

/•  V A  I  I  OAT  E  RE l A  T I  ON  NAME  */ 

DO  I  •  I  TO  R  (NO: 

(F  TNAME  •  REL(I)  THEN  LEAVES 

ENOS 

IF  I  -  R_  I  NO  ♦  1 

Then  00; 

pot  ship  cist  chelation  not  in  view.'); 

HI  TURN  , 
l  NO. 

/•  prim’  out  header  •/ 


DEC00030 
DEC00040 
DEC00050 
SHR00170 
SHR00180 
SHR00190 
SHR00200 
SHR00210 
SHR00220 
SHR00230 
SHR00240 
SHR00250 
SHR00260 
SHR00270 
SHR00280 
SHR00290 
SHR00300 
SHR003 1 0 
SHR00320 
SHR00330 
SHR00340 
SHR00350 
SHR00360 
SHR00370 
SHR00380 
SHR00390 
SIIR00400 
SHR00410 
SHR00420 
SHR00430 
SHR00440 
SHR00450 
;  SHR00460 
SHR00470 
SHR00480 
SHR00490 
SITR00500 
SHR00510 
SHR00520 
SMR00530 
SHR00540 
SHR00550 
SHR00560 
SHR00570 
SHR00580 
SHR00590 
SHR00600 
SHR0061 0 
SHR00620 


:u 


ts 

1 

0 

PUT  SKIP  EDIT  (•DOMAIN1 . 'TYPE' . * LEN 1 , 'MIN* . 'MAX' ) 

(X(5).A,X<14),A.X(8).A,X(8).A.X(8).A); 

SHR00630 

SHR00640 

16 

1 

0 

PUT  SKIP  EDIT  ) 

(X(5),A1X(14),A»X(8),A,X(8)«A,X(8)»A)J 

SHR00650 

SHR00660 

17 

1 

0 

FVALUE(2)  »  ‘01010101 ’ B ; 

/•  PRINT  OUT  OOMAINS  AND  ATTRIBUTES  •/ 

SHR00670 

SHR00680 

SHR00C90 

18 

1 

0 

DO  J  *  1  TO  NOOM(  I  ) ; 

SHR00700 

19 

1 

1 

IF  NJ(I,J)  =  ' 10000000' B  «  N4( I , J)  ■  ‘00000000‘B 

THE  1  DO ; 

SHR007 1 0 
SHR00720 

20 

1 

2 

FVALUE(1 )  -  C2 (  I  ,  J ) ; 

SHR00730 

21 

1 

2 

CALL  FETCHT(RET_ARG) i 

SHR00740 

22 

1 

2 

DATTR  =  VALUE; 

SHR00750 

23 

1 

2 

UNSPEC(TVPE)  .  TTVPE ;  BLEN  «  TLEN; 

SHR00760 

25 

1 

2 

BMIN  >  TWIN;  BMAX  *  TMAX; 

SHR00770 

27 

1 

2 

FREE  DOM  RET; 

SHR00780 

28 

1 

2 

UNSPEC(TNAME)  =  C2 (  I  , J )  ; 

SHR00790 

29 

1 

2 

IF  TYPE  *  'C' 

THEN  PUT  SKIP  EDIT  ( TNAME . ‘ CHAR •, BLEN , 1 1 ) 
(X(5),A.X(12),A,X(9) . F(2),X(9) ,A,X(9),A)5 

SHR00800 
SHROOB1 0 
SHR00B20 

30 

1 

2 

ELSE  Pur  SKIP  EDIT  ( TNAME , 'NUM1 , BLEN. BMIN, BMAX) 

(X(5),A,X(13),A,X(9),F(2),X(9)1F(2),X(9),F(2))» 

SHR00830 

SHR00840 

31 

1 

2 

END; 

SHR00850 

32 

1 

1 

END; 

SHR00B60 

SHR00870 

33 

1 

0 

END  SHREL; 

SHR00880 

%  INCLUDE  LOAD*.  •********»***.«**«•*«•»»••*•*  «»*•»».•**•**«*.*•»*»**•*»** LOAOOOI 0 

DOC04520 

•  •  00C0453 0 

•  MODULE  DESCRIPTION  *  DQC04540 

DOC04550 

0  LOAD:  PROCEDURE! TNAME  /*  CHAR(fl)  •/);  DOC04560 

............... ....... .*.•*...•»••».  DOC04570 

***».  PURPOSE:  DQC04580 

•  *.«.  TO  INSERT  TUPLES  OF  DATA  INTO  A  GIVEN  RELATION.  DOC04590 

•  ♦«*»  DOC04600 

DOC0461 0 

•  ««»«  METHOD:  DOC04620 

♦*•**  NOT  SIGNIFICANT  DOC04630 

*«**.  DOC04640 

.......  ...... ............................. DOC046S0 

»»«**  INPUT  PARAMETERS!  DOC04660 

.....  1)  TNAME  -  NAME  OF  RELATION  DOC04670 

*.**•  DOC04680 

DOC04690 

*«•»*  OUTPUT  PARAMETERS:  DOC04700 

**•»»  NONE  DQC047 1 0 

.....  DOC04720 

................... DOC04730 

*«*«*  CALLS  PROCEDURES:  D0C04740 

*«**•  FETCHT,  INSERTN ,  LEX2  DOC04750 

.....  DOC04760 

............... OOC04770 

LOAOOO 1 0 
LOAOO020 

/•  INSERTN  TABLE  «/  LOAOO030 

0  DCL  I  INSER  T_ARG ,  LOA00040 

2  NNA  ME  B I T ( 64 ) ,  LQA00050 

2  NAT  TR  BIT<8),  LOA00060 

2  ARG (  20 ) ,  LOA00070 

3  1  NAME  B1 T ( 64 )  ,  LOA00080 

3  I  VALUE  81 T ( 320  ) ;  LDA00090 

LOAOOtOO 

/«  FETCHT  TABLE  */  LOAOOIIO 

0  DCL  1  RET_A  RG ,  LOA00120 

2  NUMN  B I T ( 8 ) ,  LOA00130 

2  NSE  T(5)  91 T (64 ) ,  LOA00140 

2  AT T  R( 20 ) ,  10400150 

3  N  INDEX  B!T(8),  LOA00160 

3  NAME  811(64),  LOA00170 

3  RET  INFO,  LOA00180 

4  FETCH  BI T<  8  )  ,  LQA00190 


) 


4 


5 


6 


7 


I 

N> 

►-* 

N) 

I 


8 


9 

10 


4  SAME  B I T { 8 ) ,  LOA00200 

4  FVALUE  BI T ( 160);  LOA00210 

LOA00220 

/*  FETCHT  OUTPUT  «/  LOA00230 

1  0  DCL  1  DOM_RET  CONTROLLED  EXTERNAL,  LOA00240 

2  D_I D  FIXED  BIN(15),  LOA00250 

2  VALUE  B I T ( 320 ) ;  LOA00260 

LOA00270 

/•  SUBROUTINES  •  /  LOAOO280 

X  INCLUDE  EINSERN I.*.......**.**...*.........*.*.*...*.* •**••*•****•***. LOA00290 

/*  INSERT  NSET  MODULE  »/  DEC00070 

1  0  DCL  INSERTN  ENTRY ( 1 ,  2  BIT(64),  2  B1T(8),  2  (20).  DECOOOBO 

3  B I T (64  )  ,  3  B I T ( 320 )  )  ;  DEC00090 

LOA00290 

X  INCLUDE  EFETCHT I................................. **♦*.*****.♦*••*****♦ LOA00300 

/*  FETCH  NSET  MODULE  ♦/  DEC00110 

1  0  DCL  FETCHT  ENTRY ( 1 ,  2  BIT(8),  2  (5)  BIT(64),  2  (20),  3  BIT ( B ) ,  DEC00120 

3  BI T ( 64 ) ,  3,  4  B I T ( B ) ,  4  BIT(8),  4  BI T ( 1 60 ) ) ; DECOO I  30 
.................  LOA00300 

XINCLUOE  ELEX2; .................................................... L0A003 1 0 

/•  LEXICAL  ANALYZER  ♦/  DEC00150 

1  0  DCL  LEX2  ENTRY(FIXED  BIN(15),(*)  CHAR(40),(*)  FIXED  BlN(15))l  DEC00160 

...............  LOA003 1 0 

LOA00320 

/*  DOMAIN  ATTRIBUTES  TABLE  */  LOA00330 

1  0  DCL  1  RECORD,  LOA00340 

2  TTYPE  BI T ( 8 ) .  LOA00350 

2  TLEN  0 1 T ( 1 6 ) ,  LOA00360 

2  TMIN  BI T ( 16),  LOA00370 

2  TMAX  B I T ( 16),  LOAOO3B0 

D ATI R  B  I T ( 56  )  DEFINED  RECORD,  LOA00390 

TYPE(IO)  CHAR(1),  LOA00400 

B LEN ( 1 0  )  FIXED  BIN( 16) ,  LOA00410 

BMIN(tO)  FIXED  BIN(16),  LOA00420 

BMAX(IO)  FIXED  BIN(16)S  LOA00430 

LOA00440 

/•  CURRENT  VIEW  ID  •/  LOA00450 

1  0  OCL  C  _ I D  CH  Afl ( 8 )  EXTERNAL!  LOA00460 

LOA00470 

/•  MISCELLANEOUS  */  LOA00480 

1  0  DCL  TNAME  CHAR(8),  LOA00490 

D0M(20)  CHAR ( 8 ) ,  LOA00500 

DAT  A (20  )  CHAR ( 40 )  INIT(  (20)((40)‘  •)),  L0A00510 

L ( 20 )  FIXED  BIN(IS),  '  LOA00520 

T  EMP( 20  )  CHAR ( 40 )  INIT(  (20)((40)‘  •)),  LOA00530 

T  L ( 20 )  FIXED  B 1 N ( 1 5 ) ,  LOA00540 

STH  CHA R ( 80 )  VARYING,  LOA00550 

I  FIXED  BlN( 8 ) ,  LOA00560 

(J.N.N2)  FIXED  BIN( 1 5 ) ,  LQA00570 
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1 1 

12 

13 

14 

15 


16 

18 

19 

21 

23 

24 
26 
27 


29 

30 
•  31 


32 

34 

35 
35 
37 

33 

43 

41 

42 

44 

45 

46 

47 

48 

49 

50 

51 
53 

55 

56 

57 


TRUE  S I T < 1 J  INI T( ‘ 1  *8); 


/•  START  LOAD  */ 


/«  GET  RELATION  NAME  */ 

0  IF  TNAME  =  (8)*  1 

THEN  DO; 

1  PUT  SKIP  LIST  ('RELATION  NAME:'); 

1  GET  EDIT  (TNAME)  <  A ( 8 ) ) ; 

1  IF  .NAME  «  (8)'  '  THEN  RETURN; 

1  END; 

/«  VALIDATE  RELATION  NAME  «/ 

0  NUMN  =  '00000001*8;  NSE  T ( 1  )  =  UNSPEC ( 1 VTABLE  '); 

0  N_ I NDE  X(1),N_INDEX(2)  =  'OOOOQOOI'B; 

0  NAME ( 1  )  =  UN  SPEC ('ID  ');  NAME ( 2  )  •  UNSPEC( 1 RNAME  ')» 

0  FETCH(l)  =  ' 00000000 1 B ;  F£TCH(2)  *  '10000000'B: 

0  SAME( 1 ) .SAME (2)  =  'OOOOOOOO'B; 

0  FVALUE(I)  =  UNSPEC ( C_I D ) 1  FVALUE(2)  -  UNSPEC ( TNAME ) I 

0  CALL  FC1CHT( RET_ARG); 

0  IF  ALLOCATION(DOM_RET)  -  0 

THEN  DC; 

1  PUT  SKIP  LIST  (‘RELATION  NOT  IN  VIEW.'); 

1  RETURN; 

1  END; 

0  FREE  DOM_RET J 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


/•  GET  DOMAINS  AND  ATTRIBUTES  OF  RELATION  */ 

NUMN  =  ‘OJOOOOIO‘8;  NSET ( 1 )  *  UNSPEC (' RT ABLE  ')$ 

NSE  T ( 2  )  *  UN  SPEC ( ' DT  ABLE  '); 

N_INDEX< 1 ) ,N_INDEX(2)  *  '00000001'B; 

N_INDEX(3) ,N_INDEX(4)  =  ' 00000 0 1 0 ' B : 

NAME ( 1  )  =  UNSPEC( 'RNAME  ' ) ;  NAME ( 4  )  »  UNSPEC( ' DATTR  *)J 
NAME(2 ) .NAME ( 3)  =  UNSPEC (' DNAME  '); 

FETCH ( 1 )  *  ' OOOOOOOO'B: 

FETCH(2).FETCH(3) .FETCH (4)  =  '10000000'B; 

SAME( 1  ) .SAME (2)  ,SAME(4)  =  'OOOOOOOO'B;  SAME(3)  ■  '00010010'B! 
FVALUE ( 1 )  =  UNSPECt TNAME ) ; 

FVALUE(2),FVALUE(3).FVALUE(4)  »  '01010101'B; 

CALL  F  ETCHT ( RET  ARC) ; 

DO  I  »  1  TO  A L LOCAT ION ( DOM_RET ) /2 ; 

UNSPEC ( 00M( l ) )  *  VALUE; 

FREE  DOM _RE T ; 

DATTR  =  VALUE; 

UNSPEC(TYPE(I))  *  TTYPE;  BLEN(I)  ■  TLEN ; 

BMIN(I)  =  TMIN;  BMAX(I)  •  TMAX  J 
FREE  DOM_RET; 


END; 

I  «  I  - 


LOA00580 
LQA00590 
LOA00600 
LOA0061 0 
LOA00620 
LOA00630 
LOAO0S4O 
LOA00650 
L0A00660 
LOA00670 
LOA00680 
LOA00690 
LOA00700 
L0A00710 
LOA00720 
LDA00730 
L0A00740 
LOA00750 
LQA00760 
LDA00770 
LOA00780 
LOA00790 
LOAOOBOO 
LOAOOB1 0 
LOA00820 
LOA00830 
LOA00840 
LOA00850 
LOA00860 
L0A0087  0 
LOA00880 
LOA00890 
LOA00900 
LOA00910 
LOA00920 
LOA00930 
L0A00940 
LDA00950 
LOA00960 
LOA00970 
LOA00980 
LOA00990 
LOAOIOOO 
LOAOIOIO 
LOA01020 
LO A0 1 030 
LOA01040 
LO A0 1 050 
L0A01060 


o 


i 


LOA01070 

/•  PRINT  OUT  DOMAINS  */  LOAOIOBO 

era  .  '  •  '  ?  i  runtnan 


58 

1 

0 

STR  «  ' ! 1 ; 

LOA01090 

59 

1 

0 

DO  J  «  1  TO  I; 

LOA01 100 

60 

1 

1 

STR  *  STR  | j  OOM(J)  i J  • 1 •  ; 

L0A01 1 10 

61 

1 

1 

END; 

L0A01 120 

62 

1 

0 

IF  I  >  8 

LOA01 130 

THEN  DO; 

LOA01 140 

63 

1 

1 

PUT  SKIP  LIST  ( SUBSTR ( STR,1,73)); 

L0A01 150 

64 

1 

1 

PUT  SKIP  LIST  (SUBSTR(STR,73) ) ; 

LOAOI 160 

65 

1 

1 

ENT  ; 

L0A01 170 

66 

1 

0 

ELSE  PU1  SKI P  LIST  (STR)  ; 

LOAOI 180 
LOAOI 190 

/•  INITIALIZE  INSERTN  VARIABLES  •/ 

LOA01200 

67 

1 

0 

NNAME  *  UNSPEC(TNAME);  NATTR  «  I; 

LOAOI 2 1 0 

69 

1 

0 

INAME  =  UNSPEC(OOM); 

LOAOI 220 
LOAOI 230 

/•  GET  DATA  •/ 

LOAOI 240 

70 

1 

0 

DO  WHI LE(TRUE); 

LOA01250 

71 

1 

1 

PUT  SKIP  LIST  ( 1 LS 1 ) ; 

LOA01260 

72 

1 

1 

CALL  LEX 2 ( N , DATA , L ) ; 

LOA0I27O 

73 

1 

1 

IF  N  =  0  THEN  RETURN; 

L0A01280 

74 

1 

1 

IF  N  '=  I 

LOA01290 

THEN  PUT  SKIP  LIST  ('INCORRECT  NUMBER  OF  DATA  ITEMS 

LOA01300 

75 

1 

1 

ELSE  DO; 

LOA01310 

76 

1 

2 

DO  J  «  1  TO  I ; 

LOA01320 

77 

1 

3 

DO  WH I LE ( L ( J  )  >  BLEN(d) ); 

LOAOI 330 

78 

1 

4 

PUT  SKIP  EDIT  ('DATA  FOR  DOMAIN  ' ,DOM(d), 

LOAOI 340 

'  TOO  LONG:')  (A, A. A); 

LOAOI 350 

79 

1 

4 

CALL  LEX2(N2.TEMP,TL); 

LOA01360 

80 

1 

4 

IF  N2  »  0  THEN  RETURN; 

LOA01370 

81 

1 

4 

OATA(d)  «  TEMP(1); 

LOA01380 

82 

1 

4 

L(d)  ■  TL( 1 ) ; 

LOAOI 390 

83 

1 

4 

ENO; 

LOA01400 

84 

1 

3 

IF  TYPE(J)  =  'N' 

LOA01410 

THEN  DO; 

LOA01420 

85 

1 

4 

DO  WHILE(V£RIFY(DATA(d). '-0123456789 

•)  0) 

;  LOA0 1 430 

86 

1 

5 

PUT  SKIP  EDIT  ('DATA  FOR  DOMAIN  * 

.OOM(d), 

LO AO  1440 

'  MUST  BE  NUMERIC: 

1 ) ( (3 ) A) 

;  LOA0 1450 

87 

1 

5 

CALL  LEX2(N2, TEMP.TL) ; 

LOAOI 460 

88 

1 

5 

IF  N2  a  0  THEN  RETURN; 

LOAOI 470 

89 

1 

5 

DATA(d)  «  T EMP (  1  ) ; 

LOAOI 480 

90 

1 

5 

END; 

LOA01490 

91 

1 

4 

DO  WHI LE(BIN(DATA( d))  <  BMlN(d)); 

LOA01500 

92 

1 

5 

PUT  SKIP  EDIT  ('DATA  FOR  DOMAIN  ' 

.DOM(d), 

LOA01510 

'  BELOW  MIN: ' )  (A, 

A. A); 

LOA01520 

93 

1 

5 

CALL  LEX2(N2 , T  EMP, TL ) ; 

LOAOI 530 

94 

1 

5 

IF  NJ  .  0  THEN  RETURN; 

LOA01540 

95 

1 

5 

DATA(d)  «  TEMP ( 1  ) ; 

LOA01550 

96  1  5 

97  1  4 

98  1  5 

99  1  5 

100  15 

101  15 

102  15 

103  14 

104  13 


105  12 

106  12 

107  12 

108  1  1 

109  10 


END; 

DO  WHILE(BIN(OATA(d))  >  BMAX(d)): 

PUT  SKIP  EDIT  ('DATA  FOR  DOMAIN  1 ,DOM(J), 
'  ABOVE  MAX  :  *  )  (A. A. A) i 
CALL  LEX2(N2,TEMP,TL) ; 

IF  N2  *  0  THEN  RETURN; 

DATA(d)  *  TEMP  ( 1  ) ; 

END; 

END; 

end; 

/*  FINALLY.,  CAN  CALL  1NSERTN  •/ 

IVALUE  a  UNSPEC ( DATA) ; 

CALL  INSERTN(INSE«T_ARG); 

END  ; 

END; 

END  LOAD; 


LOA01560 
L0A01570 
LO A0 1 580 
LOA01590 
LOA01600 
L0A01610 
L0A01620 
LOAO 1 630 
LOAO 1 640 
LOAO 1 650 
LOAO 1 660 
LOAO 1 670 
LOAO 1 680 
LOAO 1 690 
LOAO 1700 
LOAO 1710 
LOAO 1720 
LOA01730 


I 


XINCLUDE  SELECT;- 


* 

• 

* 

module 

DESCRIPTION 

• 

1 

0  SELECT: 

. . . 

PROCI DURE ( TNAME  /* 

(20)  CHAR ( 8 )  •/); 

•»*«♦  purposl: 


RESTRICT  GIVEN  DOMAINS  OF  A  RELATION  TO 
VALUES. 


METHOD: 


REFER  TO  N JO  INI  FOR  RESTRICT  METHOD 


•  INPUT  parameters: 

«•••♦  1)  TNAME  -  ALL  THE  TOKENS  FOUND  IN  THE 


OUTPUT  PARAMETERS'- 
NONE 


••••*  CALLS  PROCEDURES: 
*«•«•  NONE 


2  1  0 


/*  RELATION  TABLES  •/ 

DCL  1  T1_ARG(20)  EXTERNAL, 

2  Nl  B I T ( 8  )  i 
2  0(5)  81 T<64), 

2  T2( 20) , 

3  N 2  6IT(8) , 

3  C  2  BIT (64), 

3  T  3 , 

4  N3  B I T ( 8 ) , 

4  N4  B I T ( 8 ) , 

4  C3  BI T< 160)  , 

R  _  I  NO  FIXED  B I N ( 1 5  )  EXTERNAL, 

RE L( 20 )  CHAR ( 8  )  EXTERNAL, 

NDOM(0 : 20 )  FIXED  BIN(15)  EXTERNAL; 

/♦  MISCELLANEOUS  «/ 


SEL00010 
•**«••••»•  DOC 01 720 

•  DOCO 1730 

*  D0C01740 
00C01750 
D0C01 760 

mmmmM  DQC01770 
DOCOI 7B0 
CERTAIN  DOCOI 790 

DOCO 1 800 
DOCOI BIO 
DOCO 1 820 
DOCOI 830 
DOCOI 840 
DOCO 1850 
».*».«•••*  DOCO 1 860 
DOCO I  870 
SELECT  COMMDDOCO 1 880 
DOCO I  890 
•  **•*•••»*  DOC  01900 
DOCO 1910 
DOCOI 920 
DOCO 1 930 
•*.**••••*  DOCOI 940 
DOCOI 950 
DOCO 1 960 
DOC  01970 
•»»•»••••/  DOCOI 980 
SEL00010 
SEL00020 
SE  L  00030 
SEL00040 
SE  L  00050 
SEl 00060 
SEL00070 
SE  L  00080 
SEL00090 
SE  LO0 1 00 
SEl 001 10 
SE  LO0 1 20 
SE  LO0 1 30 
SE  LO0 1 40 
SE  LO0 1 50 
SE  LO0 1 60 
SEL00170 
SE  LO0 1 80 


3 

1 

0 

DCL  T  NAME (20)  CHAR(8) , 

SEL00190 

LVALUE(20)  CHARI 40 )  EXTERNAL, 

SEL00200 

ANS  CH A R ( 1 ) , 

SEL00210 

GIVING  FIXEO  BIN( 1 5 )  EXTERNAL, 

SEL00220 

(  1 , J, J1  )  FIXED  3IN( 15) , 

FLAG  81 T( 1 ) ; 

SEL00230 
SEL00240 
SE  L  00250 

/•  START  SUBROUTINE  •/ 

SEL00260 
SE  L  00270 

/•  VAL  DATE  RELATION  NAME  */ 

SEL00280 

4 

1 

0 

DO  I  =  1  TO  R  INO; 

SEL00290 

5 

1 

1 

IF  TNAM E ( 2 )  =  REL(I)  THEN  LEAVE; 

SEL00300 

6 

1 

1 

END; 

SEL00310 

7 

1 

0 

IF  I  =  R_I  N  0  4  1 

SEL00320 

THEN  DO; 

SE  L  00330 

e 

1 

1 

PUT  SKIP  LIST  (‘RELATION  NOT  FOUND.')*, 

SE l 00340 

9 

1 

1 

RETURN  ; 

SEL00350 

10 

1 

1 

END; 

SE  L  00360 
SEL00370 

COPY  OLD  RELATION  ONTO  NEW  RELATION  •/ 

SE  L  00380 

1 1 

1 

0 

T1_ARG(R_1ND+1 )  *  T1_ARG(I); 

SE  L  00390 
SELC0400 

/*  DO  SELECTION  */ 

SE  L  004 1 0 

12 

1 

0 

DO  U  =  4  TO  GIVING  -  1  ; 

SEL00420 

13 

1 

1 

FLAG  *  *  1 ' B ; 

SEL00430 

14 

1 

1 

DO  J1  «  1  TO  NOOM< I  )  ; 

SEL00440 

15 

1 

2 

IF  UNSPEC ( TNAME ( J ) )  »  C2(I,J1)  t  N3(I,J1)  -  ‘100000001 

BSE  L  00450 

THEN  DO; 

SE  L  00460 

16 

1 

3 

FLAG  =  ‘O' B; 

SE  L  00470 

17 

1 

3 

IF  C3< 1,01)  =  '01010101 '0 

SE  L  00480 

THEN  C3 ( R_ I NOt 1 ,01)  *  UNSPECI LV ALU E ( J ) ) ; 

SEL00490 

18 

1 

3 

ELSE  DO; 

SE  L  00500 

19 

1 

4 

PUT  SKIP  ED I T ( 1  DOMAIN  1  , TNAME ( J  )  , 

SE l 005 1 0 

‘  ALREADY  SELECTED  0N.')((3)A) 

;SEL00520 

20 

1 

4 

ANS  *  '  '  *, 

SEL00530 

21 

1 

4 

DO  WHILEfANS  “»  1  Y ' )  ; 

SEL00540 

22 

1 

5 

PUT  SKIP  LIST  ( ' IGNORE ( Y  OR  N)S'); 

SEL00550 

23 

1 

5 

GET  EDIT  (ANS)  (A(1)),* 

SEL00560 

24 

1 

5 

IF  ANS  *  '  ‘  J  ANS  *  'N‘ 

SEL00570 

THEN  DO: 

SE1005B0 

25 

1 

6 

PUT  SKIP  LIST 

SEL00590 

('NO  NEW  RELATION  CREATED.' ){ 

SEL00600 

26 

1 

6 

RETURN; 

SE l 00610 

27 

1 

6 

END; 

SE  L  00620 

28 

1 

5 

END; 

SEL00630 

29 

1 

4 

GO  TO  NEXT; 

SEL00640 

30 

1 

4 

END; 

SEL00650 

31 

1 

3 

END; 

SEL00660 

32 

1 

2 

END; 

SEL00S70 

I 


33 

1 

1  NEXT: 

IF  FLAG 

SEL00680 

34 

1 

2 

THEN  00; 

PUT  SKIP  EDIT  ('DOMAIN  1 , T NAME ( J)  , '  NOT  IN  RELATION. 

SEL00690 

)SEL00700 

35 

1 

2 

(A. A. A): 

ANS  =  •  • ; 

SEL90710 

SEL00720 

36 

1 

2 

00  WH I LE ( ANS  **  *  V* ) ; 

SEL00730 

37 

1 

3 

PUT  SKIP  LIST  ( ' IGNORE ( ¥  OR  N):'); 

SEL00740 

38 

1 

3 

GET  EDIT  (ANS)  (A(1)); 

SE  L  00750 

39 

1 

3 

IF  ANS  «  '  ‘  J  ANS  ■  ' N 1  THEN  RETURN; 

SEL00760 

40 

1 

3 

END; 

SEL00770 

41 

1 

2 

END; 

SEL00780 

42 

1 

1 

END; 

SE l 00790 

43 

1 

0 

/«  CRCATE  NEW  RELATION  »/ 

DO  0  =  1  TO  R_IND ; 

SELOO0OO 

SEL00810 

SE100820 

44 

1 

1 

IF  TNAM£(GIV! NG* 1 )  »  REL ( J )  THEN  LEAVE  I 

SEL00030 

45 

1 

I 

END; 

SE  L  00840 

46 

1 

0 

IF  J  -  R  IND  +  1 

SE100850 

47 

1 

1 

THEN  DO; 

R  IND  *  R  IND  +  1  J 

SEL00860 

SEL00870 

40 

1 

1 

NDOM(R  IND)  «  NDOM(I); 

SELOOBbO 

49 

1 

1 

REL(R_TnD)  »  TNAME(GIVING+1 ) ; 

SEL00890 

1 

50 

1 

1 

END; 

SEL00900 

K) 

51 

1 

0 

ELSE  T1_ARG(J)  -  T1_ARG(R_IN0+t ) ; 

SEL0091 0 

I-* 

CD 

1 

52 

1 

0 

ENO  SELECT; 

SEL00920 

SEL00930 

X  INCLUDE  PROJECT ;****••♦•**••****»••**♦•• 
. . * . . . . 

. 

•  MODULE  DESCRIPTION 


PROJECT:  PROCEDURE! TNAME  /•  (20)  CHAR ( 8 )  •/); 

. . . . 

.....  purpoSl: 

.....  PROJECT  a  relation  onto  given  domains. 


method: 

REFER  TO  ?????  FOR  PROJECT  METHOD 


.....  INPUT  PARAMETERS: 

•  .  .  . •  COMMAND 


*...«  OUTPUT  PARAMETERS! 
.....  NONE 

4  ...  * 


CALLS  PROCEDURES: 
NONE 


/•  RELATION  TABLES  */ 

DCL  t  T  t  _AR G( 20 )  EXTERNAL, 

2  N1  BIT ( S  )  . 

2  Cl (  5)  8 1  T ( 64 ) , 

2  T2  (  20  )  , 

3  N  2  B I  T  (  8  ) , 

3  C  2  B I T ( 64 ) , 

3  T  3 , 

4  N3  BIT (8), 

4  N4  BIT<0) , 

4  C3  61 T( 160) , 

R  INO  FIXED  B I N( 1 5 )  EXTERNAL, 

REL( 20 )  CHAR ( 8 )  EXTERNAL, 

NDOM(0 : 20 )  FIXED  BIN{15)  EXTERNAL! 

/*  MISCELLANEOUS  •/ 

DCL  TN  .ME (20)  CHAR(8) , 


...PR000010 
•  PR000010 

.  PR000020 

.  PR000030 

/  PR000040 

PR000050 
.  PR000060 

PR000070 
PR000080 
PR000090 
4  PHOOOIOO 
PR0001 1 0 
PR000120 
PROOO I  30 
4  PROOO 1 40 
PROOO 1 50 
PROOO 1 60 
PROOO 170 
4  PROOO 1 80 
PROOO  1 90 
PR000200 
PR000210 
4  PR000220 

PR000230 
PR000240 
PR000250 
/  PR000260 

PROOOO'iO 
PR000020 
PR000030 
PR000040 
PR000050 
PR000060 
PR000070 
PR000080 
PR000090 
PROOO 1 00 

pnooo  no 

PROOO I  20 
PROOO 130 
PROOO 140 
PROOO 1 50 
PROOO  1 60 
PR0001 70 
PROOO 1 00 
PROOO 190 


220- 


4 

5 

6 

7 

8 
9 

10 


11 

12 


13 

I  1« 

15 

16 

17 

18 

19 

20 
21 

22 

23 

24 

25 

26 
27 
20 

29 

30 


31 

32 

33 

34 


1 

1 


1 

1 

1 

1 


0 

1 

1 

0 

1 

1 

1 


0 

0 


0 

1 

1 

2 

3 

3 

3 

2 

1 

2 

2 

2 

3 

3 

3 

3 

2 

1 


0 

1 

1 

0 


ANS  CHAR(1), 

GIVING  FIXED  B1N( 1 5 )  EXTERNAL, 
(  1 . J, J1  )  FIXED  BIN( 15) , 

FLAG  81 T( 1 ) i 

/•  START  SUBROUTINE  */ 


PR000200 

PR000210 

PR000220 

PR000230 

PR000240 

PR000250 

PR000260 


/.  VALIDATE  RELATION  NAME  */ 

00  I  =  1  TO  r_ino; 

IF  TNAME(2)  *  REL(I)  THEN  LEAVE  5 

END; 

IF  I  =  R_IND  +  1 
THEN  DO; 

PUT  SKIP  LIST  (‘RELATION  NOT  FOUND.'); 

RETURN  ; 

END; 

/*  COPY  OLD  RELATION  ONTO  NEW  RELATION  •/ 

T1_ARG(K_IN0+1 )  =  T1_ARG(I); 

N3(R_IN0+1 . *)  «  '00000000*8; 

/.  DO  PROJECTION  ♦/ 

00  J  c  4  TO  GIVING  -  1  ; 

F  LAG  s  ' 1 ' 8; 

DO  J1  =  1  TO  NDOM( I ) ;  , 

IF  UNSPEC(TNAME(J))  »  C2(l.J1)  S  N3(I.JO  •  ‘10000000 
THEN  DO; 

N3 ( R_ IND+ 1 , J1 )  ■  '  1000  0000  *  B ; 

FLAG  «  ‘O'  B; 

END; 

END; 

IF  FLAG 

THEN  DOj  EDJT  ( i oOMA I N  ' , T NAME ( J) , '  NOT  IN  RELATION. 

(A, A, A); 

ANS  *  1  ' ; 

DO  WHILE (ANS  *■  'V )  ! 

PUT  SKIP  LIST  ( 1  IGNORE ( Y  OR  N)J'); 

GET  EDIT  (ANS)  (A(1)); 

IF  ANS  »  ’  '  !  ANS  -  ' N '  THEN  RETURN; 

END; 

END; 

END; 

/♦  CREATE  NEW  RELATION  */ 

00  J  «  1  TO  r_ino; 

IF  TNAME(GIVING+1 )  •  REL(J)  THEN  LEAVE; 

ENO; 

IF  J  *  P_IND  +  1 


PR000270 
PR0002BO 
PR000290 
PR000300 
PR000310 
PR000320 
PR000330 
PR000340 
PRU00350 
PR000360 
PR000370 
PR000380 
PR000390 
PR000400 
PR000410 
PR000420 
PR000430 
PR000440 
'  BPR000450 
PR000460 
PR000470 
PR000480 
PR000490 
PR000500 
PR000510 
PR000520 
• )PR000530 
PR000540 
PR000550 
PR000560 
PR00057  0 
PR000500 
PR000590 
PR000600 
PR0006 10 
PR000620 
PR000630 
PR000640 
PR000650 
PR000660 
PR000670 
PR0006B0 


THEN  00; 

R_IN0  *  R_IND  ♦  1  ; 

ND0M(R_IN0)  ■  NDOM(I); 
REl(R_INO)  -  TNAME (GIVING+1 ) ; 
ENO; 

ELSE  T 1 _ARG ( J )  >  T1_ARG(R_IN0+1 ) ; 
END  PROJECT ; 


PR000690 
PR000700 
PR00071 0 
PR000720 
PRO00730 
PR000740 
PR000750 
PR000760 


I 


0 


0 


X INCLUDE  JOIN;»*»*.»»***»«»«««*«*»***»»**»*******»».**.***»»»**.».»»»» 

. . ***** . *** . * . 

*  * 

*  MODULE  DESCRIPTION  • 

. * . •***♦♦*•**♦ . . . . 

JOIN:  PROCEDURE! TNAME  /»  (20)  CHAR(8)  •  /); 

/•*••♦ . . . . . . . 

.....  purpose: 

.***.  JOIN  TWO  GIVEN  RELATIONS  AND  A  NUMBER  OF  GIVEN  COMM 

»♦...  DOMAINS. 


.....  METHOD: 

.....  REFER  TO  NJ0IN1  FOR  METHOD 


.....  INPUT  parameters: 
**♦.»  NONE 

.  .... 


.....  OUTPUT  PARAMETERS: 
.....  NONE 


. ....  CALLS  PROCEDURES: 

.....  RON  E 

.  .... 

. . . . . . 


/»  RELATION  TABLES  */ 

DCL  1  T  t  _AR  G( 20 )  EXTERNAL, 

2  N 1  B I T  ( 8  )  , 

2  Cl  (  5  )  Bi T ( 64 ) , 

2  T2( 20) , 

3  N  2  01 T ( B )  , 

3  C  2  BIT (64), 

3  T  3 , 

4  N3  BIT(B), 

4  N4  BIT(8), 

4  C3  B I T ( 1 60 )  , 

R  _ I ND  FIXED  B I N( I  5 )  EXTERNAL, 
REL(20 )  CHAR ( 8 )  EXTERNAL, 

NDOM( 0 : 20 )  FIXED  BIN( 15)  EXTERNAL; 


JO I  000 10 
DOC 01 440 
DOC  0 1 450 
DOC 01 460 
DOCO 1470 
DOL014BO 
DOC  01 490 
DOCO 1 SOO 
DOCO 1 S I  0 
DOC0IS20 
DOC  01630 
DOCO I  540 
DOCO 1550 
DCC0I560 
DOCO 1 570 
DOC  0 1 580 
DOCO 1590 
DOCO 1600 
DOC 01 61 0 
D0< 01620 
DOCO 1 630 
DOCO 1 640 
DOCO 1650 
DOC 01 660 
DOCO 1 670 
DOCO 1 680 
DOCO 1 690 
DOCO 1 700 
JOIOOOIO 
JO  I  00020 
JO  I  00030 
JOI 00040 
JO  I  00050 
JO  I  00060 
JO  I  00070 

joiooobo 

JOI 00090 
J0I00100 
JO  loot  1 0 
J0100120 
JO  100130 
JO  I  00 1 40 
JO  100 150 
JO  1 00 160 
JOI 001 70 
JO l 00 180 


/.  MISCELLANEOUS  */ 


DC i  TMMti?o)  char < 0 ) , 

T  (  up  81 T (64 | . 

Bi  ff  B!  T  (•  )  , 
t  Muf  «  I  T  <  1  )  INI T(  1 t  ' 8) . 

giving  fixed  bin(is)  external, 

( I  J.K . I .PI ,P2)  FIXED  3IN( 15) . 
( * . B.C I  F| XEO  BIN( B ) ; 


/•  START  SUBRI'JTINE  •/ 


/•  VAI  I  TATE  RELAT ION  1  •/ 


4 

1 

0 

DO  «H  U  E l TRUE ) ; 

S 

1 

1 

00  I  -  1  TO  R  _INO; 

« 

1 

2 

IF  TNAME(2)  •  REL(I)  THEN  LEAVE; 

7 

1 

2 

E’.O; 

a 

i 

1 

IF  1  -*  R_INO  ♦  1  THEN  LEAVE; 

9 

1 

1 

Pul  SKIP  LIST  (‘RELATION  1  UNDEFINED:1 

10 

1 

1 

GIT  EDI  T  (TNAM£<2))  ( A ( 8 )  )  ; 

IF  TNAME ( 2 )  »  ( 8 ) *  1  THEN  RETURN; 

1  1 

1 

1 

12 

1 

1 

END: 

1 

K> 

13 

1 

0 

PI  -  1  i 

/•  VALIDATE  RELATION  2  •/ 

14 

1 

0 

00  WH I  LEI  TRUE ) ; 

N1 

15 

1 

1 

DO  I  *  1  TO  R  IND; 

CJ 

1 

16 

1 

2 

IF  TNAME ( 4 )  »  REL(I)  THEN  LEAVE} 

17 

1 

2 

END; 

18 

1 

1 

IT  I  •»  R_!ND  ♦  1  THEN  LEAVE; 

19 

1 

1 

PUT  SKIP  LIST  (' RELATION  2  UNDEFINED:* 

20 

1 

1 

GEI  EDIT  ( TNAME ( 4 ) )  (A<8)); 

21 

1 

1 

IT  TNAMEI4)  =  (8)'  1  THEN  RETURN; 

23 

1 

1 

END; 

23 

1 

0 

P2  «  l  ; 

/•  COPY  RELATION  1  INTO  NEW  RELATION  •/ 

24 

1 

0 

T1_ARu(R_IND-f  1  )  =  T1_ARG(P1); 

/•  CORRECT  NUMN  »/ 

25 

1 

0 

A  »  N i (Pi  ) ;  8  «  N 1 ( P2 ) ;  C  »  A  +  B; 

2B 

1 

0 

N1 (R_ IND+1 )  *  Cj 

/*  ADD  NSET  NAMES  •/ 

29 

1 

0 

DO  I  =  1  TO  8; 

30 

1 

1 

Cl  (R.IND+l  ,A+I )  ■  CKP2.I); 

31 

1 

1 

ENO; 

/«  ADD  N_IN OEXES ,  ATTRIBUTE  NAMES,  AND  RET 

32 

1 

0 

DO  I  *  1  TO  ND0M(P2)S 

33 

1 

1 

B  *  N2( P2.I) ;  C  »  A  +  B; 

JO 100190 
J0100200 
JO  I  002 1 0 
JOI00220 
JO  100230 
JO  1 00240 
JO  1 00250 
JO  1 00260 
JO  1 00270 
JO  I  00260 
JO  1 00290 
JO  1 00300 
JO  1 0031 0 
JO  100320 
JOI003:iC 
JO  1 00340 
JO  I  00350 
JO  1 00360 
JO  1 00370 
JOIOO30O 
JO  I  00390 
JO  I  00400 
JOI00410 
JO  I  00420 
JOI00430 
JO  I  00440 
JO  I  00450 
JO  1 00460 
JO  I  00470 
JO  100-180 
JOI 00490 
JO  100500 
JO  1 005 1 0 
JO  1 00520 
JOI00530 
JO  1 00540 
JOI 00550 
JO  I  00560 
JO  I  00570 
JOI 00580 
JOI00590 
JO  1 00600 
JO  1 00610 
JO  I  00620 
JOI 00630 
JO  1 00640 
JO  1 00650 
JOI00660 
JOI00670 
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1 


35  1  t 

36  1  1 

37  1  1 


38  1  1 

39  1  2 

40  1  2 

41  1  2 

42  1  2 

43  1  1 


44  1  0 

45  1  1 

46  1  1 

47  1  2 

48  1  3 

49  1  3 

50  1  4 

51  1  4 

52  1  5 

53  1  5 

54  1  S 

55  1  4 


I 


I 


56  1  5 

57  1  5 

58  1  5 

59  1  5 

60  1  5 

61  1  4 

62  1  3 

63  1  3 

64  1  3 

65  1  2 

66  1  1 

67  1  1 

68  1  1  next: 


69  1  0 

70  I  1 


N2(R  1ND+1 , 1+ND0M(  PI  ) )  ■  C; 

C2(R  1ND+1 ,I+ND0M(P1 ) )  -  C2(P2.I): 

T3(rIiND+1,I+ND0M(P1))  ■  T3(P2,I); 

/♦  FIX  UP  SAMES  ♦/ 

IF  N4 ( P 2 • I )  **  '00000000'B 
THEN  00 : 

8  =  N4(P2.I); 

C  *  1 6 •  A  ♦  B; 

N4 (R_IN0+1 . 1+ND0M(P1 )  )  »  C; 

END; 

end; 

/•  JOIN  THE  2  RELATIONS  ♦/ 

DO  I  «  6  TO  GIVING  -  1 ; 

TEMP  *  UNSPECITNAME ( I ) ) ; 

DO  J  =  NDOM( PI )+1  TO  ND0M(P1)+ND0M(P2)J 

IF  TEMP  =  C2 ( R_ 1 ND-M , J )  A  N 3( R_IND*1 . J )  •  *10000000  B 
THEN  00; 

BUFF  ■  *00000000' B; 

DO  K  *  1  TO  NDOM ( P 1 ) ; 

IF  N2(R_IN0+1 .K)  »  BUFF 
THEN  l  =  L  *  1; 

ELSE  DO; 

L  —  1 ; 

BUFF  =  N2(R_IND+1 ,K) ; 

END; 

IF  TEMP  =  C2(R_IND-H  ,K)  A 

N3 ( R_1 ND+ 1 , K )  -  *  1 0000000 ' B 
THEN  DO; 

■B  =  N2 ( R_  IND+ 1  .  K ) ; 

C  =  16«B  +  L; 

N4  ( R_IND+ I , J)  •  C; 

GO  TO  NEXT; 

END; 

END; 

PUT  SHIP  EDIT  ('DOMAIN  •  , TNAME ( I ) t 

'  NOT  IN  RELATION  1.')  (A,A,A)S 

RETURN; 

END; 

PUt’sKIP  EDIT  ('DOMAIN  * , TNAME( I  ) , '  NOT  IN  RELATION  2.') 
(A, A. A); 

RETURN; 

ENO; 

/*  CREATE  NEW  RELATION  */ 

DO  1  1  1  TO  R_INO; 

IF  TNAME(GIVINGF1 )  *  REL(I)  THEN  LEAVE  I 


JO  1 00680 
JOI00690 
JO  1 00700 
JO  1 007 1 0 
JO  1 00720 
JQ100730 
JO  100740 
JQ100750 
JOI00760 
JO 1 00770 
JO I  00780 
JO  I  00790 
JO  1 00800 
JQ100810 
JO  I  00820 
JO  1 00830 
JO  1 00840 
JO  1 00850 
JQ1 00860 
JOI00870 
JO  I  00880 
JQI00890 
JO I  00900 
JO  I  009 1  0 
JO  1 00920 
JO  I  00930 
JO  1 00940 
JO! 00950 
JO I  00960 
JOI00970 
JO  1 00980 
J01 00990 
J0I01000 
J0I01010 
JO  101020 
JO 101 030 
JO  101040 
JO  101 050 
JO  101 060 
JO  101070 
JO  101 080 
JO  101 090 
JOIOI 100 
J0101 110 
JO! 01 120 
JOIOI 130 
JOIOI 140 
JOIOI 150 
JOIOI 160 
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71 

1 

1 

END; 

JOIOI 170 

72 

1 

0 

IF  I 

=  R_IND+1 

00101180 

THEN 

00; 

JOIOI 190 

73 

1 

1 

R  IND  «  R_IN0  ♦  1  ; 

JOIOI 200 

74 

1 

1 

REL(R_IND)  »  TNAME ( GI VING+1 ) ; 

JOI01210 

75 

1 

1 

ND0M(R  INO)  ■  NDOM(PI)  ♦  ND0M(P2); 

JOIOI 220 

76 

1 

1 

END; 

JOIOI 230 

77 

1 

0 

ELSE 

DO; 

JO  101 240 

78 

1 

1 

T 1 _ARG (  I )  *  T1_ARG(R^IN0-M  ) ; 

JOIOI 250 

79 

1 

1 

NIQM(I)  •  NDOM(PI)  +  ND0M(P2); 

JOIOI 260 

80 

1 

1 

END; 

J0I01270 

JO  101 280 

81 

1 

0 

END 

join; 

JOI01290 

0 


X  INCLUDE  PRINT ;*•*•***••*•♦••***«♦••*♦****•*•****•••«•***••*****♦•• ***»PRI00010 

DOC04250 

*  •  DOC04260 

*  MODULE  DESCRIPTION  •  DOC04270 

DOC042BO 

PRINT:  PROC EC URE ( TNAME  /•  CHAR(8)  •/);  00004290 

/««**•••»,.»•**  DOC04  300 

PURPOSE:  DOC0431 0 

**•••  PRINT  ALL  THE  TUPLES  OF  A  GIVEN  RELATION.  DOC04320 

•••••  DOC04330 

O0C04340 

METHOD:  DOC04350 

*  ••••  NOT  SIGNIFICANT  DOC04360 

*«»••  DOC0437  0 

DOC04300 

«♦•••  INPUT  PARAMETERS:  DOC04390 

1)  TNAME  -  NAME  OF  RELATION  DOC04400 

•••••  DOC044 1 0 

DOC04420 

•«•••  OUTPUT  PARAMETERS:  0OC04430 

NONE  DOC04440 

DOC04450 

•*»♦••*♦••*•*♦•***♦*•♦•***** **«*♦*******•*••»•*♦•*♦**»«•*»•*•••**♦•♦♦  DOC044G0 
••***  CALLS  PROCEDURES:  DOC04470 

*••••  FETCHT  DOC044B0 


DOC04490 
/  DOC04500 

PR  I OO0 1 0 
PR  1 00020 


/♦  FETCHT  TABLE  •/  PRI00030 

X  INCLUDE  RETARG; *•♦»•♦*•••*»*••»***«*♦****»**••*••**♦••*•♦*••»***•• ****PR I  00040 
DCL  1  RET_ ARG,  /*  USED  TO  RETRIEVE  NSETS  •/  DCL00090 

2  NUMN  B I T ( 8 ) ,  /•  NUMBER  OF  NSETS  */  DCL00100 

2  NSET ( 5 )  BI T ( 64 ) ,  /*  NAMES  OF  NSETS  TO  BE  FETCHED*/DC1001 10 

2  ARGS ( 20 ) ,  /*  INFO  FOR  EACH  ATTRIBUTE  */  DCL00120 

3  N_INDEX  BI T ( 8 )  ,  /*  WHICH  NSET  IS  THIS  IN  */  DCL00130 

3  NAME  B I T ( 64 ) ,  /•  NAME  OF  ATTRIBUTE  */  DCL0CI40 

3  RET.INFO,  /*  RETRIEVE  INFORMATION  */  DCL00150 

(4  FETCH,  /.  IS  IT  TO  BE  FETCHED  */  DCL00160 

4  SAME  )  BIT(8),  /•  SAME  AS  PREVIOUSLY  DCL00170 

DtFINED  DOMAIN  */  DCLOOtBO 

A  VALUE  B  I  T ( 1 60  )  ;  /*VALUE  TO  SEARCH  ON  OR  DCL00190 
NONE  •/  DCL00200 

•  ••••••••••••*»•  PR  1 00040 

/*  FETCHT  OUTPUT  */  PRI00050 

X INCLUDE  DOMRET  ***»**•♦*****•*«**•«*♦•**»*•****.♦**•*•*••**•*•*•••. •••PR  100060 
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3  1  0 


4  1  0 


/♦  FETCHT  OUTPUT  ♦/ 

DCL  1  DOMR  ET  CONTROLLED  EXTERNAL,  /*  STACK  OF  DATA  VALUES  •/ 
2  D  ID  FIXED  BIN ( 1 5 ) ,  /*  NSET  AND  ATTRIBUTE  ID  */ 

2  VALUE  B I T ( 320 ) ;  /*  DATA  VALUE  •/ 


5  1  0 


/*  RELATION  TABLES  •/ 

DCL  »  TT_ARG(20)  EXTERNAL, 

2  N1  BI T(8) , 

2  C1(  5)  BI T(64) . 

2  T2( 20)  , 

3  N 2  BIT(8)  , 

3  C  2  E1T(G4) , 

3  T  3 , 

4  N3  BIT (8), 

4  N4  BIT(B), 

4  C3  B I T ( 1 60 ) , 

R  INO  FIXED  BIN( 15)  EXTERNAL, 
RELI20)  CHAR ( 8 )  EXTERNAL, 

NDCM(0 : 20 )  FIXED  B1N(15)  EXTERNAL; 

/*  DOMAIN  ATTRIBUTES  TABLE  */ 

DCL  1  RECORD, 

2  MASK!  BIT(B)  , 

2  TLEN  BIT( 16) , 

2  MASK2  BIT (32) , 

DATTR  B  I T ( 56 )  DEFINED  RECORD, 

L  EN( 20 )  FIXED  B1N(16>; 


7  1  0 


/•  SUBROUTINES  «/ 

X  INCLUDE  EFETCHr;«*  *•*••••***•***•♦♦*****♦•*******«**••******•*•****•* 

/*  FETCH  NSET  MODULE  •/ 

DCL  FETCHT  ENTRY ( t .  2  BIT(8),  2  (5)  BIT(64),  2  (20),  3  BIT(8), 
3  BI T ( 64 ) ,  3,  4  BIT(8),  4  BIT ( 8) ,  4  BIT(160)) 


/♦  MISCELLANEOUS  */ 

OCL  (TNAME.TEMP)  CHAR(B), 

STR  CHA R ( TOO)  VARYING, 

DATA  CH AH ( 40 ) , 

COUNT (20)  FIXED  BIN<  T5) , 

(  I  ,  U , J 1  ,U2,K,L,M, SUM )  FIXED  SIN(tS); 


/•  START  SUBROUTINE  •/ 


/«  GET  RELATION  NAME  •/ 

IF  TNAME  *  ( 8 ) 1  ’ 

THEN  DO; 

PUT  SKIP  LIST  ('RELATION  NAME:'); 


DEC00020 
DEC00030 
DEC00040 
DEC00050 
PR  I  00060 
PR  100070 
PR  I  00080 
PR  1 00090 
PR  1 00  TOO 
PRIOOT 10 
PR  1 00 1  20 
PRI00I30 
PR  I 00 1 40 
PRIOOT  50 
PR  I  00 ! 60 
PR  I  00  T  70 
PR  I  00  I  80 
PR  1 00  T  90 
PH  I  00200 
PR  I  002 1 0 
PR  I  00220 
PR  100230 
PR  I  00240 
PR  I  00250 
PR  1 00260 
PR  I  00270 
PR  I  00280 
PR  I  00290 
PR  1 00300 
PR  1 003 1  0 
*  PR  I  00320 
DEC001 TO 
DEC00120 
; DECOO  t  30 
PR  I  00320 
PR  I  00330 
PR  I  00340 
PR  100350 
PR  1 00360 
PR  1 00370 
PR I0O3H0 
PR  1 00390 
PR  I  00400 
PR  1 004 ! 0 
PR  1 00420 
PR  1 00430 
PR  1 00440 
PR  1 00450 
PRI00460 


10 

1 

1 

GET  EDIT  ( TNAME )  ( A{ 8 ) } ; 

PR  1 00470 

11 

1 

1 

IF  TNAME  «  (8)'  1  THEN  RETURN; 

PR  1 00400 

12 

1 

1 

END; 

PR  100490 

PR  1 00500 

/«  VALIDATE  RELATION  NAME  */ 

PR  1005 10 

13 

1 

0 

DO  1  =  1  TO  R_IN0; 

PR  1 00520 

14 

1 

1 

IF  TNAME  »  REL( I }  THEN  LEAVE; 

PR  100530 

15 

1 

1 

END; 

PR  I 00540 

16 

1 

0 

IF  I  =  R_I N D  ♦  1 

PR  100550 

THEN  DO; 

PR  1 00560 

17 

1 

1 

PU  SKIP  LIST  (‘RELATION  NOT  FOUND.'): 

PR  1 00570 

18 

1 

1 

RETURN  ; 

PR  100580 

19 

1 

1 

END; 

PR  1 00590 

PR  100600 

/*  GET  DOMAINS  TO  BE  PRINTED  */ 

PR  I 006 1 0 

20 

1 

0 

NUMN  =  'OOOOOOOI'B;  NSET(1)  =  UNSPE C( 1 DTABLE  *); 

PR  I 00620 

22 

1 

0 

N  INDEX ( 1 ) , N  IN0EX(2)  »  'OOOOOOOI'B; 

PR  I 00630 

23 

1 

0 

NAME ( 1 )  »  UNSPECf  ' DNAME  ');  NAME ( 2 )  -  UNSPEC (  1 DATTR 

•)8 

PR  100640 

25 

1 

0 

FETCH( 1)  *  'OOOOOOOO’B:  FETCH ( 2 )  =  '10000000'B; 

PR  100650 

27 

1 

0 

Same (  i ) , Sam e ( 2 )  =  'OOOOOOOO'B;  ret_ap.g.value(2)  * 

01010101 

B:  PR  100660 

29 

1 

0 

STR  -  •  |  '  ; 

PR  I 00670 

30 

1 

0 

K  «  0; 

PRI006B0 

1 

31 

1 

0 

DO  J  =  1  TO  NDOM( 1 ) : 

PR  I 00690 

to 

32 

1 

1 

IF  N3(I.J)  =  '10000000'B  &  N4( I , J )  >  '00000000 

B 

PR  I 00700 

Ni 

THEN  DO  ; 

PR  1 007 1 0 

00 

1 

33 

1 

2 

UNSPEC(TEMP)  »  02(1,3); 

PR  I 00720 

34 

1 

2 

STR  »  STR  J !  TEMP  | |  '  |  ; 

PR  I 00730 

35 

1 

2 

RET_ARG. VALUE(  1 )  ■  C2( I , J) ; 

PR  I 00740 

36 

1 

2 

CALL  FETCHT ( RET_ARG) > 

PR  I 00750 

37 

1 

2 

OATTR  *0OM_RET .VALUE ! 

PR  I 007  60 

38 

1 

2 

K  *  K  ♦  1 ; 

PR  I 00770 

39 

1 

2 

LEN(K)  »  TLEN; 

PR  I 00780 

40 

1 

2 

FREE  DOM_RET; 

PR  I 00790 

41 

1 

2 

END; 

PR  100800 

42 

1 

1 

END; 

PR  I 008 1 0 

PR  1 00820 

/*  CREATE  PRINTING  FORMAT  */ 

PR  100830 

43 

1 

0 

SUM, L  *  1; 

PR  1 00840 

44 

1 

0 

COUNT  *  0; 

PR  1 00850 

45 

1 

0 

DO  J  *  1  TO  K; 

PR  1 00860 

46 

1 

1 

SUM  ■  SUM  +  LEN(J)  +  1; 

PR  1 00870 

47 

1 

1 

COUNT ( L  )  *  COUNT ( L)  ♦  1 ; 

PR  1 00880 

48 

1 

1 

IF  SUM  >  80 

PR  100390 

THEN  DO; 

PR  1 00900 

49 

1 

2 

COUNT ( L)  «  COUNT ( L)  -  1 ; 

PR  1 009 1 0 

50 

1 

2 

L  *  L  +  1  ; 

PR  1 00920 

51 

1 

2 

COUNT ( L)  *  1 ; 

PR  1 00930 

52 

1 

2 

SUM  «  LEN(J)  ♦  2; 

PR  I 00940 

53 

1 

2 

END; 

PR  100950 
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54 

1 

1 

END; 

/•  PRINT  OUT  DOM A  IN  HEADER  •/ 

PR  1 00960 
PR  I 00970 
PRI 00980 

05 

1 

0 

IF  K  >  8 

THEN  DO; 

PR  I 00990 
PR  101 000 

06 

1 

1 

PUT  SKIP  LIST  (SUBSTR(STR, 1 ,73)); 

PRI 0101 0 

57 

1 

1 

PUT  SKIP  LIST  <SUBSTR(STR,73) ) ; 

PRI01020 

50 

1 

1 

END- 

PR  I  0 1 030 

\9 

1 

0 

ELSE  P0T  SKIP  LIST  (STR); 

/•  GET  THE  DATA  •/ 

PR  1 0 1 040 
PR  I 0 1 050 
PR  I 0 1 060 

(30 

i 

0 

RET_ A  RG  =  T 1 _ARG( I ) ; 

PR  I 0 1 070 

61 

1 

0 

CALL  FETCHT (RET_ARG) ; 

/*  PRINT  OUT  THE  DATA  «/ 

PR  I 0 1 000 
PR  I 0 1 090 
PR  I 0 1 100 

62 

1 

0 

DO  vJ  *  1  TO  ALLOC  AT  I  ON  (  DOM_fi£  T  )  /K ; 

PRI01 1 10 

r.3 

1 

1 

M  =  0; 

PHI01 120 

64 

1 

1 

DO  J1  =  1  TO  l; 

PRI01 130 

65 

1 

2 

STR  *  *  i  •  ; 

PR101 140 

66 

1 

2 

DO  02  >  1  TO  COUNT(L); 

PR101 150 

67 

1 

3 

M  .  M  +  1 ; 

PRIOI 160 

60 

1 

3 

UNSPEC(DATA)  *OOM_RET. VALUE; 

PR  1 0 1 170 

69 

1 

3 

STR  =  STR  •:  SUBSTR(DAT  A, 1 , LEN(M) ) 

ft  1  »  • 

1  • 

PRIOI 180 

70 

1 

3 

FREE  DOM_RET; 

PRIOI 190 

71 

1 

3 

END  ; 

PR  I 0 1 200 

72 

1 

2 

PUT  SKIP  LIST  (STR); 

PRIOI 210 

73 

1 

2 

END; 

PR  1 0 1 220 

74 

1 

1 

END; 

PR  1 01 230 
PR  I 01240 

75 

1 

0 

END  PRI OT ; 

PRIOI 250 

X  INCLUDE  LEX; »••♦•*•**»♦*•»•«••**♦**«»♦*••****•**»»*•*****»»•***. ****»*LEX00010 

DOCO4790 

•  •  DOC04800 

•  MODULE  DESCRIPTION  •  DOCO18I0 

DOC04820 

t  0  LEX:  PROCEDURE!  1  /•  FIXED  B1N(15)  •  /.  DOC04830 

TOKEN  /•  (20)  CHAR ( 8 )  */ ) ;  DOC04840 

DOC04850 

*«•••  PURPOSE:  DOC  04860 

«*•••  LEXICAL  ANALYZER  FOR  USER  COMMAND  LINES.  DOC04870 

•••••  D0C04880 

DOC 04 890 

«•••«  METHOD:  DOC04900 

NONE  DOC0491 0 

•  ••«*  DOC04920 

DOC04930 

INPUT  PARAMETERS:  DOCC4940 

•  *•••  NONE  D0C04950 

,  «*•••  DOC049G0 

NJ  .,♦..♦..*.....►....*...*♦•«******«**«.,♦♦**«..•..♦.*•**♦•***********•  D0C04970 

GJ  *****  OUTPUT  PARAMETERS:  D0C04980 

O  *****  DOC04990 

1  1)1-  NUMBER  OF  TOKENS  FOUND  DOCOSOOO 

*****  2)  TOKEN  -  TOKEN  ARRAY  DOCOSOIO 

D0C05020 

•*••*  CALLS  FIOCEOURES:  DOC05030 

*•♦♦•  NONE  DOC0S040 

*«•*«  DGC05050 

DOC0S06O 

.***«.**..*..  LEX00010 

LEX00020 

/*  LEXICAL  ANALYZER  VARIABLES  */  LEX00030 

2  1  0  DCL  T OKEN ( 2  0 )  CHAR ( 8 ) ,  LEX00040 

LVALUE( 20)  CHAR { 40 )  EXTERNAL,  LEX00050 

I  FIXED  BIN( 15),  LEX00060 

( AND, ON .GIVING, LAST )  FIXED  BIN(15)  EXTERNAL!  LEX00070 

LEX00080 

/♦  INPUT  STRING  VARIABLES  */  LEX00090 

3  1  0  DCL  STR  CHA  R ( 240 )  VARYING,  LEX00100 

LINE  CHAR(80) ,  LEX00110 

POS  FIXED  BIN(15);  LEX00120 

LEX00130 

/*  MISCELLANEOUS  */  LEX00140 

*  1  0  DCL  TEMP  CH AR ( 5 1 )  VARYING,  LEX00150 

(START, END, EO)  FIXEO  BIN(15)!  LEX00160 

LEX00170 


/•  START  SUBROUTINE  •/ 

/•  GET  INPUT  STRING  */ 

0  STR  *  " ; 

0  LOOP:  GET  EDIT  (LINE)  <A(B0))J 

o  pos  «  inoex(line, 

0  IF  POS  *=  0 

THEN  DO; 

1  SIP  =  STR  I',  SUBSTRU1NE.1  ,P0S-1)J 

1  GO  TO  LOOP; 

1  END; 

0  STR  *  STR  {  LINE  !  i  '  '  ; 

/»  LEX  STARTS  */ 

0  STR  =  TRANSLATE(STR, •  '.'.'l; 

0  TOKEN  =  (8)'  LVALUE  •  (40)'  *5 

0  I  ,  AND  .ON.GI  VINC.  =  0; 

/*  EXTRACT  TOKENS  */ 

0  START  =  VER I FY ( S  TR ,  '  '  )  i 

0  DO  WH I LE ( ST  ART  *«  0); 

1  STR  *  SUBSTR(STR, START); 

t  ENO  =  I NOEX(STR. '  ' ) I 

1  TEMP  =  S'JBSTR(STR,1  , END-1  ); 

1  l=I+i; 

i  eo  =  index(temp, '«■ ) ; 

1  IF  EO  =  0 

then  TOKEN( I )  =  TEMP; 

1  ELSE  00; 

2  TOKEN(I)  «  SUBSTR(TEMP,1 ,EQ-1); 

2  IF  SUBS  T  R  (  T  EMP  ,  EQ+1  >  1  )  « 

THEN  00; 

3  STR  =  SUBSTR(STR,E0+2); 

3  ENO  =  I  NOE  X ( STR  * 

3  LVALUE ( 1 )  *  SUBSTR(STR,1 , END-1 )S 

3  end: 

2  ELSE  LVALUE ( I )  *  SUB STR (TEMP, EQ+1 ) ; 

2  END; 

1  SELECT! TOKEN ( I ) ) ; 

2  WHEN( 'AND  ' )  AND  ■  I ; 

2  WHEN( 'ON  ' )  ON  «  I ; 

2  WHENCGIVING  ')  GIVING  »  I; 

2  OTHERWISE; 

2  END; 

1  STR  «  SU8STR(STR,EN0+1 ) : 

1  START  *  VERI FV(STR , '  ' ); 

1  END; 

0  LAST  >  I 


LEX00180 

LEX00190 

LEX00200 

LEX00210 

LEX00220 

LEX00230 

LEX00240 

L  EX00250 

L  E  X002G0 

LE  X00270 

LEX002B0 

LEX00290 

LE  X00300 

LEX00310 

LEX00320 

LE  X00330 

LEX00340 

LEX00350 

LEX00360 

LE  X00370 

LE  X00380 

LEX00390 

LE  X00400 

LEX00410 

LEX00420 

LEX00430 

LEX00440 

LEX004S0 

LEX00460 

LEX00470 

LEX00480 

LEXC0490 

L  E  X00500 

LE  X005 1 0 

LE  X00520 

LEX00530 

LEX00540 

LE  XOO550 

LEX00S60 

LE  XOO570 

LE  X005B0 

LEX00590 

LE  X00600 

LE  X0061 0 

LE  X00620 

LEX00630 

LEX00640 

LEX00650 

LEX00660 


2 


I 

K» 

L*J 

U) 

I 


I 


2 


3 


0 


1  0 


1  0 


XINCLUDE  LEX2; 

. . 


•  MODULE  DESCRIPTION 


LEX2:  PROCEDURE ( I  /«  FIXED  BIN{ I 5 )  •/, 

DATA  /•  (10)  CHAR ( 40 )  ♦/, 

L  /*  ( 10)  FIXED  BIN( 15)  »/); 

. . * . . . . 

.....  PURPOSE: 

•«•••  LEXICAL  ANALYZER  FOR  LOAD  DATA  LINES. 


. 

. 

/ 


•««*.  METHOD: 

*«••»  NOT  SIGNIFICANT 


•*»««  INPUT  parameters: 
*  .  .  .  .  NON  E 


output  parameters: 

1)  I  -  NUMBER  of  data  items  found 

2)  OATA  -  DATA  ARRAY 

3)  L  -  ARRAY  OF  LENGTHS  OF  EACH  DATA  ITEM 


CALLS  PROCEDURES: 
NONE 


/ 


/•  LEXICAL  ANALYZER  VARIABLES  */ 
DCL  DATA( 10  )  CHAR ( 40 ) , 

L< 10)  F IXEO  8 IN( 1 5 ) . 

(  I  .LAST  )  FIXED  BIN( 15); 

/.  INPUT  STRING  VARIABLES  •/ 

DCL  STR  CHA R ( 240 )  VARYING, 

L 1NE  CHAR(BO) , 

POS  FIXED  BIN( 15) ; 

/•  START  SUBROUTINE  */ 

/•  GET  INPUT  STRING  */ 


1 LEXOO0 1 0 
DOC05080 
DOC05090 
DOC05 1 00 
DOC051 10 
D0C05I20 
DOC05130 
DOC05140 
DOC05 1  50 
DOC05160 
DOC051 70 
DOCOS 1 80 
DOC05190 
DOC 05 200 
DOC 052 10 
DOC05220 
DOC05230 
DOC 05 240 
DOC0525O 
DQC05260 
DOC05270 
D0C052B0 
DOC05290 
DQC05300 
DOC053 1 0 
DOC05320 
DOC05330 
DOC05340 
D0C05350 
DOC05360 
DOC05370 
LEX00010 
LEX00020 
LEX00030 
LEX00040 
LEX00050 
LEX00060 
LEX00070 
LEXOOOBO 
LEX00090 
LEXOOIOO 
LEX001 10 
LEX00120 
LEX001 30 
LEX00140 
LEX00150 


2 


4  1  0 

5  1  0  LOOPS 

6  t  0 

7  I  0 

a  1  1 

9  I  t 

10  t  1 

11  10 


12  10 

13  11 

14  1  0 


1b  1  0 


16  1  0 

17  1  1 

IB  1  1 

19  1  1 

20  1  1 

21  1  1 

22  1  1 


STR  «  1  *  : 

GET  EDIT  (LINE)  (A(80))S 
POS  -  INDEX ( LINE , ‘ / * ) ! 

IF  POS  *«  0 
T  HEN  00  * 

STR  «  STR  i :  SUBSTR(LINE.I.POS-I); 

GO  TO  LOOP; 

END: 

str  •  str  i  i  line: 

DO  1 1  *  LENGTM(STR)  TO  1  BY  -1  WHILE) SUBSTR ( STR, 1*1) 
STR  «  SUBST  R  (  STR  ,  1  . 1  )  !i  • 

/•  LEX  STARTS  «/ 

I  *  o: 


/.  extract  tokens  •/ 

DO  WHILE(VERIFY(STR. * )  *•  0); 
LAST  «  INOEX( STR, ' , ' )  -  1 ; 
i  *  i  +  i; 

0 ATA( I )  «  SU8STR(STR. 1 »  LAST) ; 
L  ( I )  -  LAST: 

STR  -  SUBSTR{ STR, LAST+2 ) ; 

ENO; 


LEX00160 
LEX001 70 
LEX00180 
LEXOO 1 90 
LEX00200 
LEX0021 0 
LEX00220 
LEX00230 
LEX00240 
LEX00250 
LEX00260 
>)l  LEX00270 

LEX00280 
LEX00290 
LEX00300 
LEX00310 
LEX00320 
LEX00330 
LEX00340 
LEX00350 
LEX00360 
LEX00370 
LEXOO30O 
LEX00390 
LEX00400 
LEX0041 0 
LEX00420 
LEX00430 


23  1  0 


END  LEX2; 
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i 


XINCLUDE  OELIM; 


. . . 

* 

• 

MODULE  DESCRIPTION 

* 

1  0  DELIM: 

PROCEDURE 

. . 

(TYPE  /♦  BIT(t)  */  ) 

RETURNS! BIT(  S  ) ) ; 

•  «♦*  purpose: 

•♦♦•THIS  MODULE  is  responsible  for  the  syntax  chtcking  of 
••♦♦RELATIONAL  OPERATIONS  (SELECT,  PROJECT  AND  JOIN  ).  IT  IS 
♦•♦•CALLED  BY  THE  QUERY  MODULE,  AFTER  LEX  HAS  PROCESSED  THE 
••♦♦COMMAND  LINE.  DELIM  MAKES  USE  OF  THE  POSITIONS  OF  DELIMITERS 
••••TO  DETERMINE  IF  A  SYNTAX  ERROR  HAS  OCCURRED. IF  AN  ERROR  HAS 
•••♦OCCURRED  IT  PRINTS  A  MESSAGE  AND  RETURNS  A  CODE  TO  QUERY. 


•••*  METHOD: 

*•••  DELIM  RELIES  ON  THE  POSITION  OF  DELIMITERS  TO  INDICATE 

••••  POSSIBLE  PROBLEMS.  WHEN  LEX  PROCESSES  THE  COMMAND  LINE 

*•••  IT  KEEPS  TRACK  OF  THE  POSITION  OF  DELIMITERS  SUCH  AS 

••••  (AND, ON, GIVING)  AND  PUTS  THEIR  POSITIONS  IN  EXTERNAL 

••••  VARIBALES  OF  THE  SAME  NAME. 

•  •  *  • 


•••*  INPUT  PARAMETERS: 

•  •••  T'  PE  -  FLAG  TO  INDICATE  IF  OPERATION  IS  A  JOIN: 

•  •••  *  1 *B  -  JOIN 

♦♦*•  ' O'B  -  NO 

•••*  AS  MENTIONED  ABOVE  IT  ALSO  USES  THE  FOLLOWING  EXTERNAL 

••*•  VARIABLES: (AND, ON, GIVING, LAST)  FIXED  BIN(15)  EXT; 


•♦••  OUTPUT  parameters: 

••**  RETURNS  A  * 1*,'0'  VALUE  TO  INDICATE  IF  ANY  ERRORS  WERE 
•  •*♦  DISCOVERED.  'O'B  INDICATES  NO  ERRORS  WERE  DETECTED. 


•♦•*  CALLS  PROCEDURES: 

••••  NONE 

. . . . . * . . 


/•  RELATIONAL  OPERATOR  INOEXES  •/ 

2  1  0  DCL  (AND, ON .GIVING, LAST)  FIXED  B1N(15)  EXTERNALS 

/*  MISCELLANEOUS  •/ 


DELOOOIO 
FOROOOI 0 
FOR00020 
FOR00030 
FOR00040 
F0R00050 
FOR00060 
FOR00070 
FOROOOBO 
FOR00090 
FOROOIOO 
FOROOUO 
FOR00120 
FOROOI30 
FOR00140 
FOROO 1 50 
FORUOIGO 
FOROO 1 70 
FORO0 1  BO 
FOROO 1 90 
FOR00200 
FOR002I0 
FOR00220 
FOR00230 
FOR00240 
FOR00250 
FOR00260 
FOR00270 
FOR00280 
FOR00290 
F0R00300 
FOR00310 
FOR00320 
FORO0330 
FOR00340 
FOR00350 
FOR00360 
FOR00370 
FOR00380 
FOR00390 
DELOOOIO 
0EL00020 
DEL00030 
DEL00040 
DELOOOSO 
DEL00060 


I 

1 


I 

M 

U> 

01 

I 


5 

6 

7 

8 

9 
10 
1  1 
12 

13 

14 

15 


16 

17 

18 

19 

20 
21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 


0  DCL  TYPE  BI T( 1 ) ; 

/•  START  SUBROUTINE  ♦/ 

/•  CHECK  MISSING  DELIMITERS  */ 

0  IF  TYPE  «  '  1  *B 

THEN  IF  AND  *  0 
THEN  DO; 

t  PUT  SKIP  LIST(‘AND  KEYWORD  MISSING.'); 

I  R  ETURN( 1 1 1 B) < 

1  END; 

0  IF  ON  »  0 

THEN  DO; 

1  PUT  SKIP  L I S T ( 1  ON  KEYWORD  MISSING.1); 

t  RETURN ( *  1 ' 8 ) ; 

1  end; 

0  IF  GIVING  =  0 

THEN  DO; 

,  PUT  SKIP  LIST ( 'GIVING  KEYWORD  MISSING.'); 

1  RETURN ( 1 1 1 B ) ! 

1  cND; 

/.  CHECK  MISSING  RELATION  AND  DOMAIN  NAMES  */ 

0  IF  TYPE  •  ' 1 ' B 

THEN  DO; 

t  IF  ANO  =  2 

THEN  00; 

2  PUT  SKIP  LIST( 'FIRST  RELATION  NAME  MISSING.'); 

2  RETURN (  1  1  ‘ B) I 

2  END; 

1  IF  AND  >  3 

THEN  DO;  .  .  .  . 

2  PUT  SKIP  LIST ( ' TOO  MANY  NAMES  FOR  FIRST  RELATION.' 

2  RETURN! *  1 1 B)  ; 

2  ENO; 

t  IF  ON  -  ANO  <  2 

THEN  DO; 

2  PUT  SKIP  LIST ( ' SECOND  RELATION  MISSING.'); 

2  RETURN! ' 1 'B) ; 

2  END; 

1  IF  ON  -  ANO  >  2 

THEN  DO;  _ 

2  PUT  SKIP  LIST! 'TOO  MANY  NAMES  FOR  SECOND  RELATION. 

2  RETURN! ' 1 ' B) ; 

2  END; 

1  END; 

0  ELSE  DO; 

I  IF  LN  *  2 

THI  N  DO; 


DEL00070 
DEL00080 
DEL00090 
DE  LO0 1 00 
06L00110 
DEL00120 
DE  LO0 1 30 
OE  LO0 140 
DE  LO0 1 50 
DEL00160 
DE  LO0 1 70 
DEL  00 180 
DE  LO0 1 90 
DEL00200 
DEL00210 
DEL00220 
DEI  00230 
DEL00240 
DE  L  00250 
DEL00260 
DE  L  00270 
DEL00280 
DEL00290 
DE  L00300 
DEL00310 
DEL00320 
DE  L00330 
DEL00340 
DE  L  00350 
DEL0C360 
DEL00370 
DEL00380 
DE  L  00390 
DE  L  00400 
DE  L  004 1  0 
DE  L00420 
DE  L  00430 
DEL00440 
DE l 00450 
OE  L  00460 
0EL00470 
DEL00480 
;DEL00490 
DEL00500 
DEL00510 
DEL00520 
0EL00530 
DEL00540 
DEL00550 
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36  1  2 

37  1  2 

38  t  2 

39  \  1 

40  1  2 

41  1  2 

42  1  2 

43  1  1 

44  1  0 

45  1  1 

46  1  1 

47  1  1 

48  1  0 

49  1  1 

50  1  1 

51  1  1 

52  1  0 

53  1  1 

I  54  1  1 

55  1  1 


56  1  0 

57  1  0 


PUT  SKIP  LIST ( ' FIRST  RELATION  MISSING.'); 

RETURN! '  1 ' B)  ; 

end; 

IF  ON  >  3 
THEN  DO; 

PUT  SKIP  LIST ( ‘ TOO  MANY  NAMES  FOR  FIRST  RELATION.'); 
RETURN! *  1 ' 0) ; 

END; 

EN'  ■; 

IF  GIVING  -  ON  <  2 
THEN  DO; 

PUT  SKIP  LIST( 'DOMAINS  ARE  MISSING.'); 

RETURN ! ' 1 ' B) I 
END; 

IF  LAST  -  GIVING  <  1 
THEN  DO! 

PUT  SKIP  LIST!'NEM  RELATION  NAME  missing.'); 

RETURN! *1 • 0 ) ; 

END; 

IF  LAST  -  GIVING  >  1 

then  :>o; 

P'JT  SKIP  LISTCTOO  MANY  NAMES  FOR  NEW  RELATION.')} 

RETURN (  '  1 ' B) ; 

END; 

/•  HERE,  NO  SYNTAX  ERROR  WAS  FOUND  */ 

RETURN! ' 0 1 B  )  ; 

END  DEL1M; 


DEL00560 
DEL00570 
0EL00580 
DEL00590 
DEL00600 
DEL0061 0 
0EL00620 
DEL00630 
DE 100640 
DEL00650 
DEI  00660 
DEL00670 
DEL00680 
DE100690 
DE l 00700 
DE10071 0 
DEL00720 
DEL00730 
DEL00740 
DEL00750 
DEL00760 
DEL00770 
DEL00780 
0EL00790 
DEL00800 
DEL00810 
0B.L00620 
DEL00830 
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X  INCLUDE  DEFINEN;**  ****♦♦**.♦**♦•♦**•*♦****»*♦*.**.»**********•***•♦** 

»  MODULE  DESCRIPTION  • 


0  DEFINEn: 


PROCEDURE 


(DEF_ARG 


/*  1. 


BI T (64) , 

0  l  T  (  8)  . 

(20)  . 

3  B I  T  ( 64 ) , 

3  BIT(B)  */  )! 


PURPOSE : 

THIS  PROCEDURE  CREATES  AN  ENTRY  IN  THE  NSET  CATALOGUE 
CORRESPONDING  TO  THE  NSET  TO  BE  DEFINED.  IN  ADDITION  IT 
IS  RESPONSIBLE  FOR  DEFINING  THE  PSET  WHICH  ACTS  AS  THE 
ENTITY  NODE  OF  THE  NSET.  IT  IS  ALSO  RESPONSIBLE  FOR 
DEFINING  THE  BINARY  ASSOCIATIONS  (I.E.  BSE  TS )  BETWEEN 
THE  ENTITY  NODE  AND  ITS  ATTRIBUTES. 

►  *•**♦*♦**♦***%=***♦.*♦*•♦*♦»♦♦♦♦**>»'♦**♦♦**♦♦♦*♦*•******♦******* 
METHOD: 

THE  PROCEDURE  BEGINS  BY  FILLING  THE  NCAT  STRUCTURE  WITH 
THE  CORRESPONDING  ARGUMENTS  PASSED  TO  IT  B*  DE F_ARG .  THIS 
INCLUDES:  THE  NSET  NAME , THE  NUMBER  OF  ATTRIBUTES. 

THE  NAME  OF  EACH  ATTRIBUTE,  AND  WHETHER  THF.  ATTRIBUTE 
HAi  A  1  TO  I  RELATIONSHIP  TO  THE  ENTITY  NODE.  IT  THEN 
CALLS  DEFINEP  TO  DEFINE  A  PSET  WHICH  CORRESPONDS  TO 
TO  THE  ENTITY  NODE.  THE  ENTITY  NODE  IS  GIVEN  THE  NAME 
OF  THE  NSET,  IS  LINKEO  VIA  HASHING,  AND  HAS  A  32  BIT 
KEY.  THE  NEXT  STEP  IS  TO  CREATE  BSE T  DEFINITIONS  BETWEEN 
THE  ENTITY  NODE  AND  IT  ATTRIBUTES.  FOR  EACH  ATTRIBUTE 
IT  CET ERMINES  IF  A  I  TO  1  OR  A  N  TO  1  LINK  IS  TO  BE 
DtFINED  BETWEEN  THE  ENTITY  NODE  AND  ATTRIBUTE.  IT  THEN 
CALLS  NAMCGEN  TO  CREATE  A  NAME  FOR  THE  BSE  T ,  AND  THEN 
CALLS  DEFINE)]  TO  CREATE  THE  BSCT  DEFINITION.  IN  ADDITION, 
IT  CALLS  DEFINEB  USING  THE  ECU  I  VALENT  OPTION  TO  DEFINE 
THE  RECIPROCAL  LINK  (I.E.  BETWEEN  THE  ATTRIBUTE  AND  THE 
ENTITY  NODE). ONCE  THIS  IS  DOME  IT  UPDATES  NCAT  TO  REFLECT 
THE  BSETS  CHEATED.  FINALLY  IT  USES  THE.  INFORMATION  IN 
NCAT  TO  FILL  INSERT  ARG,  AND  CALLS  INSERTN,  PASSING  IT 
INSERT  ARG.  TO  CREATE  AN  ENTRY  IN  THE  NSET  CATALOGUE, 
CORRESPONDING  TO  THE  NSE T  DEFINITION  CREATED  BY  DEFINEN. 


INPUT  PARAMETERS: 


DEF0001 0 
DEF00010 
DEF00020 
DEF00030 
DEF00C40 
DE  F  00050 
DE  F  00060 
DEF00070 
DE  F  00080 
DEFOOODO 
DEF00100 
DEF001 10 
DE  F  00 1 20 
DE  F  CO  1 30 
DEf 00140 
DEF00150 
DE  F  00 1 60 
DEF001 70 
DEF00180 
DE  F  00 1 90 
DE  F  00200 
DE  F  002 1 0 
DE  F  00220 
DEF00230 
DE  F  00240 
DEF00250 
DE  F  00260 
DE  F  00270 
DE  F  00280 
DE  F  00290 
DE  F  00300 
DEF0031 0 
DE  F  00320 
DEF00330 
DEF00340 
DE  F  00360 
DEF00360 
DEF00370 
DE  F  00380 
DEF00390 
DE  r  00400 
DEFC0410 
DE  F  00420 
DE  F  00430 
DEF00440 
DEF00450 
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1  DEF  ARG 


NNAME 
NAT  T  R 
ATTR( 20) 
3  ANAME 


3  K  TYPE 


CONTAINS  INFO  ON  NSET  TO  BE  DEFINED 
NAME  OF  NSET  TO  BE  CREATED 
NUMBER  OF  ATTRIBUTES 

UP  TO  20  ATTRIBUTES  MAY  BE  IN  AN  NSET 
NAME  OF  ATTRIBUTE,  CORRESPONDING  TO  A 
PREVIOUSLY  DEFINED  PSET. 

‘00000001 ‘B  IF  UNIQUE ,  'OOOOOOOO'B 
OTHERWISE. 


>  *  «  *  ♦ 
i  4  •  »  * 


OUTPUT  PARAMETERS: 
NONE  RETURNED. 


>***♦  PROCEDURES  INVOKED: 

>*♦♦•  defineb.definep,  namegen, insertn 


2  1  0 


I  INCLUDE  NCAT ;***♦•**♦***♦♦**♦♦♦♦* 
DCL  1  NCAT  , 

2  NNAME  BIT (64), 
2 
2 


NATTR  B I T ( 8 ) , 

AT TR ( 20  )  , 

3  ANAME  BI T ( 64  )  , 

(3  K  TYPE  , 

3  BREL)  BI T (8)  , 

(3  BSETUP  , 

3  BSETDOWN)  81 T ( 64 ) ; 


/♦  NSET  CATALOGUE  ENTRY  ♦  / 

/*  NAME  OF  NSET  ♦  ♦/ 

/♦  NUMBER  OF  ATTRIBUTES  * 
/•  UP  TO  20  ATTRIBUTES  •/ 
/♦  ATTRIBUTE  NAME  ♦  / 

/♦  UNIQUE  KEY  OR  NOT  */ 
/*  TYPE  OF  BSET  •/ 

/♦  BSET ( ATTR->N_NODE ) 

/♦  BSET ( N_NODE->ATTR ) 


3  1  0 


1  INCLUDE  DEFARG;***  *•**♦•**•♦*♦••* 
DCL  1  OEF_  ARG , 

2  NNAME  E1T(64), 
2 
2 


NATTR  B I T ( 8 )  , 

ATTR ( 70 ) , 

3  ANAME  B I T ( 64  )  , 
3  K_TYPE  BIT(8); 


/•  USED  TO  DEFINE  AN  NSET  */ 

/*  NAME  OF  NSET  »/ 

/*  NUMBER  OF  ATTRIBUTES  */ 
/•  FOR  EACH  ATTRIBUTE 
/♦  ATTRIBUTE  NAME  ♦  / 

/*  UNIQUE  KEY  OR  NOT 


•/ 


*/ 


4  1  0 


1  INCLUDE  INSERTA;**  ***•♦•*»*****»* 
DCL  1  INSE  RT_ARG ■ 

2  NNAME  B I T ( 6 4 ) , 
2 
2 


NATTR  BI T ( 8  )  . 

ATTR( 20) . 

3  NAME  B I T ( 64 )  , 

3  VALUE  BI T( 320  )  ; 


/*  USED  TO  INSERT  INTO  AN  NSET  ♦/ 
/•  NAME  OK  NSET  */ 

/•  NUMBER  OF  ATTRIBUTES 
/*  FOR  EACH  ATTRIBUTE  */ 
/*  NAME  OF  ATTRIBUTE  •/ 
/*  VALUE  TO  BE  INSERTED* 


DE  F  00460 
DEF00470 
DE  F  00480 
DEF00490 
DEF  00500 
DEF0051 0 
0EF00S20 
DEF  00530 
DEF00S40 
DEF00650 
DEF00560 
DEF00570 
DEF  00580 
DE  F  00590 
DEFC0600 
DE  F  006 1 0 
DEF00620 
DE  K  00630 
DE  F  000 1 0 
DE  F  00020 

♦  DEF  00030 
DCLOOOtO 
OC L  00020 

/DCL00030 
DC  L00040 
DC  L  00050 
DCL00060 
DCL00070 
/DC  L00080 
/DC  L00090 
DE  F  00030 
DEr00040 

♦  DEF  00050 
DC  L  000 1 0 
DC l 00020 
DCL00030 
0CL00040 
DCL00050 
DC  L00060 
DC  L  00070 
DE  F  00050 
DEF  00060 

♦DEF00070 
INS00010 
I NS00020 
/ I NS00030 
I NS0004Q 
I NS00050 
/ I NS00060 
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DEF00070 

DEF00080 

/*  USED  TO  CREATE  ATTRIBUTE  STRING  FOR  INSERT  */  DEF00090 

5  1  0  DCL  1  AT T R _TEMP  DEFINED  ATTR_STR ,  OErOOlOO 

2  ANAiME  B I  T  (  64  )  ,  DEF00110 

(2  K  TYPE,  OE  F  00 1 20 

2  BREL  )  BIT(G),  DEF00I30 

(2  BSETUP.  DEF00140 

2  SSETEOWN  )  BIT(G4).  DEFOOIGO 

AT  R_STR  B I T ( 203 ) ;  DEFOOIGO 

DEF001 70 

%  INCLUDE  B3ETSYM; ......... ............ ............ DE F 00 1 80 

/»  BSET  LINK  TYPES  */  BCA00480 

6  1  0  DCL  A1_T0_1  B I T ( S )  I N I T ( ‘ 0000000 1  1  B ) .  BCA00490 

A1_T0_N  B[T(8)  IN  I T ( '00000010 ‘ B) .  BCA00500 

N_TO_?  BIT(8)  IN  I T(  '00000100 1 B) ,  BCA005I0 

M_ T 0_N  BIT ( 8 )  INIT(  ‘00001000 *B)  I  BCA00520 

.................  DE  F  00 1 80 

DE  F  00 1 90 

7  1  0  DCL  <N_NAME.  NSETCAT . N_AT TR , 8NSET 1 .BNSET2)  BIT(64)  STATIC  DEF00200 

EXTERNAL,  DE  F  002 1 0 

UNIOUE  BIT(O)  STATIC  EXTERNAL;  DEF00220 

|810  DCL  TEMP  BIT<64).  ID  POINTER, T EMP1  CHAR(8).l  FIXED  BIN(8),  DEF00230 

RECIP  BREL  B I T 1 8 ) ;  DEF00240 

/•  PROCEDURES  CALLED  */  DEF00250 

X  INCLUDE  EDE FI NP ;»*.«*»•..♦***•.♦♦»»*♦»»»»»»•»*••»♦♦**» *♦**♦***»•***»* »DE F 00260 
/*  DEFINE  PSET  MODULE  */  BCA00590 

910  DCL  DEF.NEP  ENTRF(BIT(G4) ,BIT(B) ,BIT(8) ,BIT(8) ,BIT(8) ,  BCA00600 

BIT(8) , B I T ( 8 ) .POINTER)  ;  BCA00610 

.................  DE  F002C0 

X  INCLUDE  EDEr IN9; ..»*».♦ . .DE T002 70 
/*  DEFINE  BSET  MODULE  */  DEC00020 

10  1  0  DCL  DEFINED  ENTRY \ Bi T ( 64 ) . BI T ( 64 ) , B I T ( 64 ) , BI T ( 0 ) , BI T ( 1 ) ) J  DEC00030 

*•........,...4..  DEF  00270 

X  INCLUDE  EINSERN; *• 4  ,0E F00280 

/♦  INSERT  N32T  MOOULE  */  DEC00070 

11  1  0  DCL  INSERTN  ENTRY ( 1 ,  2  BIT<64),  2  BIT(8),  2  (70),  DEC00080 

3  B  I  T ( 64 )  ,  3  B I T ( 320 )  )  I  DEC00090 

DEFG0280 

X  INCLUDE  ENAM  EON ; *  « ...... ....4. *pE F 00290 

/*  RANDOM  NAME  GENERATOR  */  ECR00080 

12  1  0  DCL  NAMEGEN  ENTRY(FIXED  BIN(15))  RE  TURNS(  BIT  (C4 ) )  *,  ECR00090 

.................  DE  F  00290 

DE  F  00300 
DE  F  0031 0 

/*  START  OF  NSET  DEFINITION  */  DEF00320 

DE  F  00330 

/*  FILL  MCA  T  ENTRY  WITH  INFORMATION  PASSED  IN  CALL  */  DEF00340 

13  1  0  NCAT .  NN.,ME.  CEF_ARG.NNAME ;  DEF00350 
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14 

1 

0 

NCAT . N A i TR*  DEF.ARG.NATTR; 

DEF00360 

15 

1 

0 

DO  K  =  1  10  NCAT . NAT  TR ; 

DEF00370 

16 

1 

1 

NCAT. A  NAME (K )=OEF_ARG. ANAME(K)  ; 

DEF00380 

17 

1 

1 

NCAT.K  TYPE(K)=OEF_ARG(K) .K_TYPE; 

DE  F  00390 

18 

1 

1 

END; 

DE  F  00400 
DEF  004 1 0 

/•  CREATE  ENTITY  NODE  PSET  DEFINITION  */ 

DEF00P20 

19 

1 

0 

CALL  DEFINE  P( NCAT .NNAME , ' 0000  0001 ' 3 . ‘00000001 ‘ 8  , ‘ 0001 0000* B, 

DEF  00430 

1 C no  10 000' Q,  'O'B.'O'B.IO); 

DE  F  00440 
DEF00450 

/•  SET  JP  BSET  DEFINITIONS  FOR  EACH  ATTRIBUTE  -  ENTITY  LINK  */ 

DE  F  00460 

20 

1 

0 

DO  J  -  1  TO  NCAT.NATTR; 

DEF  00470 

/♦  DETERMINE  BINARY  ASSOCIATION  TYPE  •/ 

DEF  00480 

21 

1 

1 

IF  NCAT .K.TYPEId)  =  UNIQUE 

DEF  00490 

THEN  DO: 

DEr00500 

22 

1 

2 

NCAT . BRE  L ( U ) -  A1_T0_1; 

DEF0051 0 

23 

1 

2 

RECI P_BREL=A1 _T0_1 ; 

DE  F  00520 

24 

1 

2 

END; 

DEF  00530 

25 

1 

1 

E  LSE  do; 

DE  F  00540 

26 

1 

2 

NCAT.BREl(d)  •  N_T0_1; 

DEF  00550 

27 

1 

2 

REC1P_0REL*  A 1 _TO_N ; 

DEF00560 

28 

1 

2 

END; 

DEF00570 
DEF  00580 

/*  GENERATE  NAME  FOR  BSE T DOWN  •/ 

DE  F  00590 

29 

1 

1 

NCAT ( J  )  . BSE  TOOWN  =  NAMEGEN(8); 

DEF  00600 

30 

1 

1 

TEMP  =  NCAT ( d ) . BSETOOWN; 

DE  F  006 1 0 
OE  F  00620 

/•  DEF INE  BSETDOWN  */ 

DE  F  00630 

31 

1 

1 

CALL  0EF!NE8<  T EMP , NCAT . NNAME , NCAT . ATTR ( d) . ANAME , 

DE  F  00640 

NCAT . BRE  L ( d ) ,  ' 0 1 B) ; 

DEF  00650 
DE  F  00660 

/♦  DEFINE  eSETUP  AS  RECIPROCAL  OF  BSETDOWN  •/ 

DEF  00670 

32 

1 

1 

CALL  OEFINEB(TEMP,NCAT.ATTR(d) . ANAME , NCAT . NNAME , 

DE  F  00660 

R  ECIP.8REL, ‘1  ’ B ) ; 

DEF 00690 

33 

1 

1 

NCAT (d).  BSE  TUP  =  TEMP; 

DEF00700 

34 

1 

1 

END; 

DE  F  007 1 0 
DET  00720 

/•  SET  UP  INSERT  ARG  FOR  CALL  TO  INSERT  NCAT  INTO  NSET_CAT  */ 

DE  F  00730 

35 

1 

0 

INSERT. ARC. NNAME  =  NSETCAT; 

DEF00740 

36 

1 

0 

L*  1  +  NCAT  .NATTR ; 

DE  F  00750 

37 

1 

0 

INSERT. ARG.  NA  TTR-BIN(L)  ; 

DE  F  00760 

38 

1 

0 

INSERT  ARG. NAME ( 1 ) =N_NAME ; 

DEF  00770 

39 

1 

0 

INSERT. ARG. VALUE ( 1 )^NCAT .NNAME; 

DEF007G0 
DEF 00/90 

/♦  CREATE  BIT  STRING  REP  OF  ATTRIBUTE  DESCRIPTION  •/ 

DETOOBOO 

40 

1 

0 

DO  d  -1  TO  NCAT.NATTR; 

DEF008I0 

41 

1 

1 

INSERT  ARG( d+ 1 ) .NAME=N_ATTR; 

DE  F00820 

42 

1 

1 

AT  TR.T  EMP=  NCAT. ATTR(d); 

DEF00830 

43 

1 

1 

If4rLR  f  _ARG.  VALUE  (d  +  1  )*  ATTR.STR; 

DEF00B40 

/*  INSERT  INTO  NSET  CAT  •/ 
CALL  INSERTN( INSERT_ARG) ; 
RETURN; 

ENO  DEFINEN; 


DEF008S0 
DEF00860 
DEF00870 
DEF00880 
DEF00890 
DEF00900 
DEF0091 0 


%  I NCLUDE  ] NSE  ft! N : ' 
. *< 


MODULE  DESCRIPTION 


0  INSERTn: 


PROCEDURE 


I 

K) 

CO 

I 


( I NSERT_ARG  /*  1, 


B I T ( 64 ) , 

b  i  t  ( a ) , 

120)  , 

3  B I T ( 64 )  , 
3  BIT (320) 


►/>{ 


PURPOSE: 

THIS  MODULE  IS  RESPONSIBLE  FOR 
PREVIOUSLY  DEFINED  NSET.  IT  RE 

regarding  the  nset,  the  ns er  o 
nset  catalogue  and  the  informa 

IT  IS  ALSO  RESPONSIBLE  FOR  MAI 
THE  OATABASE  (I.E.  IT  WILL  NOT 
ALREADY  AN  EXISTING  OCCURENCE 
WITHIN  THE  NSET. 


METHOD: 

THE  PROCEDURE  BEGINS  8Y  CALLIN 
Nir T  CATALOGUE  ENTRY  FOR  THE  N 
AN  I  FILLS  THE  NCAT  STRUC'URE  A 
THROUGH  NCAT  TO  SEE  IF  ANY  ATT 
UNQIUE.  IF  SO  IT  GETS  THE  VALU 
ARG  AND  CALLS  SELECTF  WHICH  CH 
EXISTS  ALREADY  IN  THE  NSET.  IF 
MESSAGE  AND  REURNS.  OTHERWISE, 
OTHER  ATTRIBUTES  WHICH  ARE  DEF 
VALIDITY  OF  THE  INSERT  HAS  BEE 
VALUE  IS  GENERATED  FOR  THE  NSE 
TO  CREATE  THE  ENTITY  NODE.  IT 
.FINDS  THE  APPROPRIATE  ENTRY  I 
PASSING  IT  THE  BSET  NAME  ASSOC 
THE  ENTITY  NODE , A  POINTER  TO  T 
AND  THE  VALUE  TO  BE  INSERTED. 
ESTABLISHING  THE  BINARY  ASSOCI 
NODI-  AND  ATTRIBUTE.  AS  WELL  AS 
NODE  I F  NECESSARY. 


*  *» INSOO0 1 0 
►*  I NSOOO 1 0 
•  INSC0020 
•/  I NS00030 
INS00040 
I NS00050 
1 NS00Q60 
INS00070 
I NS00080 
I NS00090 
INS00100 
INS001 10 
INS0D120 

INSERTING  A  TUPLE  INTO  A  IHS00130 
LIES  ON  TWO  SOURCES  OF  INFO  INS00140 
EF  INI  T 1  ON  CONTAINED  IN  THE  INS00150 
T I  ON  CONTAINED  IN  INSERT_ARGINS00160 
NTAINING  THE  INTEGRITY  OF  INS00170 
INSERT  A  TUPLE  IF  THERE  IS  INS001B0 
OF  A  SUPPOSEDLY  UNIQUE  KEY  INS00190 

I NS03200 
INS00210 
I NS00220 
1NS00230 
I NS00240 


INPUT  P  .RAMETERS: 


G  BUILDC  WHICH  FETCHS  THE 
SET  SPECIFIED  IN  I NSERT_ ARG  INS002S0 
PPROPR! ATELY .  IT  THEN  GOES  INS00260 
RIBUTES  ARE  DEFINED  TO  BE  INS00270 
E  TO  BE  INSERTED  FROM  I NSERT I NSO02B0 
ECKS  TO  SEE  IF  THE  VALUE  INS00290 
SO,  INSERTN  PRINTS  AN  E RROR I NSOO 300 
IT  CONTINUES  TO  CHECK  ANY  INS00310 
INED  TO  BE  UNIQUE.  ONCE  THE  INS00320 
N  DS1ERMINED,  A  UNIQUE  TAG  INS00330 
T  NODE  AND  CREATEP  IS  C A L LEOI NS00340 
then  goes  through  insert_arginsoo3so 
N  NCAT  AND  CALLS  CRLATEB ,  INSC03C0 
IATED  KITH  THE  ATTRIBUTE  ANDINS00370 
HE  NEWLY  CREATED  ENTITY  NODEIN300380 
CREATEB  IS  RESPONSIBLE  FOR  INS00390 
AT  ION  BETWEEN  THE  ENTITY  INS00400 

CREATING  THE  ATTRIBUTE  INS00410 

I NS00420 
INS00430 

»***•• 4*. •»•*.»»••••••••  INS00440 

INS004S0 


I  INS£RT_ARG  CONTAINS  INFORMATION  FOR  INSERT 
2  NNAME  NAME  OF  PREVIOUSLY  DEFINED  NSET . 

2  NATTR  NUMBER  OF  A T T R I 8U TE - VA LUES  TO  BE  INSERTED. 

NOTE  THAT  MULTIPLE  VALUES  OF  A  PARTICULAR 
ATTRIBUTE  MAY  BE  inserted. 

2  AT  TR  UP  TO  20  AT T R I  BUTE- VALUES  MAY  BE  INSERTED 
AT  ONE  time. 

3  NAME  NAME  OF  PREVIOUSLY  DEFINED  PSET  CORRESPOND 
TO  NAME  OF  AN  ATTRIBUTE  IN  THE  NSET  DE F INI 
3  VALUE  VALUE  FOR  ATTRIBUTE,  UP  TO  320  BITS  LONG. 


*4444444444*444444  *44444** 

OUTPUT  PARAMETERS: 
NONE  RETURNED 


PROCEDURES 

CREATE 


INVOKED: 

P.CREATEB, BU I LDC . 


4 

X1NCLUDE  NCAT ;»«**•• 
DCL  1  NCAT 
2 
2 
2 


**)t.tU*4****t*44M*Ht»l*»*4*t».»4*4«H**Mlt 

/*  NSET  CATALOGUE  ENTRY  •/ 

NNAME  BIT(64),  /.  NAME  OF  NSET  ♦  */ 

NATTR  B I T ( S ) ,  /*  NUMBER  OF  ATTRIBUTE 

ATTR ( 20 ) ,  /*  UP  TO  20  ATTRIBUTES 

3  ANAME  B I T ( 64 )  ,  /•  ATTRIBUTE  NAME  */ 

(3  KJYPE,  /»  UNIQUE  KEY  OR  NOT 

3  BREL)  BIT(8),  /»  TYPE  OF  BSET  »/ 

(3  BSE  TUP ,  /•  BSET ( ATTR->N_NODE 

3  BSETDOWN)  BI T (64) ;  /*  BSET ( N_NODE->ATTR 


XINCLUOE  INSERTA;** 
DCL  1  INSE 


RT_ ARG .  /• 

NNAME  BIT (64), 

NATTR  BIT(8), 

ATTR( 20) . 

3  NAME  B I T ( 64 )  , 

3  VALUE  BI T ( 320  ) ; 


**4*4*  ***4*4«  44**4  4*44444*444* 

/•  USED  TO  INSERT  INTO  aN  NSET 
/»  NAME  OF  NSET  »/ 

/♦  NUMBER  OF  ATTRIBUTE 
/«  FOR  EACH  ATTRIBUTE 
,  /♦  NAME  OF  ATTRIBUTE 

0);  /*  VALUE  TO  BE  INSERT 


DCL  <N_IO, 
UNIQUE 

DCL  (N  NAM 
E 

XINCLUOE  INFOUND-4* 
/ 4  DATA  ST 


10,102)  POINTER  ,  NSET.IO  BIT(32),NNN  8IT(64), 
BIT(B)  STATIC  EXT; 

E,  NSE TCAT , N_AT TR , BNSET 1 ,BNSET2)  BIT(64)  STATIC 
XTERNAL; 

444444-*4444*444444**444*44***4444******4*44***4< 

ACK  RETURNED  BY  FETCH  */ 


I NS00460 
INS00470 
1 NS00480 
INS00490 
I NS00500 
I NS005 I  0 
INS00520 
ING  1NS00530 
TIONINS00540 
I NS00550 
INS00560 

*  I NS00570 
1 NSOOEBO 
INS00590 
INS00600 

*  INS00610 
I NS00620 
I NS00G30 
INS00640 

/  I NS00650 
INS00010 
INS00020 
**•4 INS00030 
DC  L  000 1 0 
DC  L00020 
S  */DC L00030 
*/  DCL00040 
DC l 00050 
*/  DC  L 00060 
DC  L00070 
)  */DCL00080 
)  */DC  L00090 
I NS00030 
*»*4 INS00040 
*/  INS00010 
I NS00020 
S  */ 1 NS00030 
*/  INSC0040 
*/  I NS00050 
ED*/ I NS00060 
1NS00040 
I NS00050 
I NS00060 
INS00070 
I NS00080 
I NSCC090 
INS00100 

*  *»* I NSO0 110 

6CA00450 


6  1  0  DC l  IN-'O  ND  BIT(3?0)  EXTERNAL  CONTROLLED:  BCA00460 

.................  INS001 I  0 

/«  PROCEDURES  CALLED  */  !NS00t20 

*  INCLUDE  ECREATP;..  INS00130 

/»  CREATE  PSET  UCOULE  «/  BCA00630 

7  1  0  DC L  CREATEP  ENTRY ( e I T ( 04 ), B IT ( 320 ). POINTER ) :  BCA0C640 

.................  I  NSC’0 1  30 

X  INCLUDE  ECREAT3;.. .................................................... iNSOOt 40 

/»  CREATE  BSE  T  MODULE  •  /  DEC00050 

B  1  0  OCL  CREA1EB  ENTRY ( Q1 T ( 64 ), POINTER . BI T ( 320 ). BIT(  320) , POINTER ) S  DEC00060 

.................  INS00140 

%  INCLUDE  ESELCCF; ••  .........................  .................... ...**.*INSO0 150 

/•  BSET  RETRIEVAL  MODULE  •/  DEC00050 

9  T  0  OCL  SELECTF  ENTR Y ( BI T ( 2 ) , POI NTER . B 1 T ( 64 ) , BI T ( 3 20 ) , PO INTER ) I  DECCC060 

. .  I NSO0 1  50 

%  INCLUDE  EBU 1 LOC ; 4  *  ...................... INS00160 

/.  NSET  CATALOGUE  ENTRY  RETRIEVAL  MODULE  »/  DEC00110 

10  T  0  DC L  BUILDC  ENTRY ( BI T ( 64 ) ,  1,  2  BIT(64),2  BIT(8),  2  (20).  DEC00120 

3  BIT(64),  3  BI T ( 8 ) ,  3  BIT(8).  3  BlT(64),  DEC00130 

3  BIT(C4) ) ;  DECC0I40 

.................  INS00160 

X  INCLUDE  ENAMEGN;.. ............ INS00170 

/ *  RANDOM  NAME  GENERATOR  »/  ECROOOBO 

'  11  10  DCL  NAMEGEN  ENTR Y ( F I XEO  BlN(lS))  RE  TURNS ( BI T (64 ) ) ;  ECR00090 

£  .................  INS00170 

U»  INS00180 

I  /•  FILL  NCAT  WITH  NSET  DEFINITION  */  INS00190 

12  1  0  CALL  BUI LOC ( INSERT_ARG. NNAME , NCAT) ;  INS00200 

INS0021 0 

/»  CHECK  FDR  DUPLICATE  KEY  VALUES  »/  INS00220 

13  10  DO  Jo  1  TO  NCAT . NAT T R ;  .  INS00230 

14  1  1  IF  NCAT.K_TYPE(J)-UNIQUE  INS00240 

THEN  DO;  INS00250 

15  12  102  =  NULL ( ) ;  INS00260 

INS00270 

/»  GET  CORRESPONDING  ENTRY  IN  INSERT_ARG  */  INS00280 

16  1  2  DO  L=  1  TO  INSERTARG. NATTR;  INS00290 

17  1  3  IF  INSERT_ARG.NAME(L)»NCAT.ANAME(J)  INS00300 

THEN  LEAVE:  INS00310 

18  1  3  END;  INS00320 

INS00330 

/•  SEE  If  INSTANCE  ALREADY  EXISTS  */  INS00340 

19  1  2  CALL  SELECTF( '01 ' B, ID2 ,BSETUP(J) ,VALUE(L) , ID ) ;  INS00350 

20  1  2  KsALLOCATI ON ( INF  0_Nu ) ;  INS00360 

21  1  2  IF  K  "oO  ”  INS00370 

THEN  DO:  INS00380 

22  1  3  PUT  SKIP  EDI T ( ' REQUEST  IGNORED,  DUPLICATE  1 INS00390 

,'KEY  FOUND  IN  RELATION' ){ A) ;  INS00400 

23  1  3  FREE  INFO.ND;  INS00410 


M 


24 

25 
2b 
27 


28 

30 

31 


32 

33 

34 


I 

ro 

At 

04 

I 


35 

36 

37 

38 


1  3 

1  3 

1  2 
1  1 


1  0 


1  0 


1  0 


1  1 
1  2 

1  2 


1  1 

1  1 
1  0 
1  0 


RETURN; 

end; 

ENO; 

END; 

/»  INSERTION  ROUTINE  •/ 

/*  GENERATE  TAG  FOR  ENTITY  NODE  INSTANCE  »/ 

NNN  =  NA"E'JEN  (8) ;  NS£T_20=NNN; 

/♦  CREATE  INSTANCE  OF  ENTITY  MODE  •/ 

CALL  CREATE  P (NCA T .NNAME ,NS£T_ID,N_I 0 ) ; 

/>  BUILD  VALUE  NODES  »/ 

DO  K-1  TO  INSERT_ARG.NATTR; 

/•  FINO  CORRESPONDING  ENTRY  IN  INSERT_ARG  •/ 
00  J=1  TO  NC  AT  .  NAT  TR  ; 

I F  NCAT . A NAME (U)aINSERT_ARG. NAME ( K ) 

THEN  LEAVE; 

END; 


INS00420 
I NS00430 
I NS00440 
1 NS00450 
INS00460 
INS00470 
INS0O460 
1NS00490 
I NS00500 
1NS00510 
I NS00520 
1 NSC0530 
INS00540 
INS0C550 
I NS00560 
INS00570 
INS00580 
INS005y0 
INS00600 
INS0061 0 
I NS00620 


/•  LI 
CALL 

END; 
RETURN; 
END  INSERTN; 


TK  INSTANCE  OF  ATTRIBUTE  TO  INSTANCE  OF  ENTITY  •/  INS00630 

;rEATE3(BSETD0WN(J) ,N_ID,NSET  I D , I NSE RT_ARG( K ).VALUE,INS00640 

[a2i-  INS00650 

'*  INS00660 


INS00680 


*  INCLUDE  FETCHT ;***»»**•••* ,»*.*».•«•••*»♦»•«.*♦••♦.*•***•*»*****••*•** FE T0001  0 

FE TOGO tO 

«  MODULE  DESCRIPTION  *  FET00020 

.,,..4. FET 00030 
FETCHT:  PROCEDURE  FET00040 

( RET_  ARG  /♦  1,  FET00060 

2  8  I T (8) ,  PET 00060 

2  (5)  BIT(64),  F  E 1  00070 

2  (20),  FEIOOOBO 

3  BIT ( 0 ) ,  FET 00090 

3  BIT(G4) ,  FETOOIOO 

3,  FETOOttO 

4  B 1 T ( 8 ) .  F  E I  00 1  20 

4  BIT (8) ,  FE TOO  130 

4  6IT(160)  »/  )  !  F £ T 00 1 40 

F FT  00 150 

.  ....  PURPOSE  "•  FET  00160 

.  ....  1 H I S  MODULE  IS  RESPONSIBLE  FOR  INTERPRETING  THE  REQUEST  FET00I70 

.....  P.vSSEO  TO  IT  THROUGH  RET _ ARG ,  AND  RETURNING  THE  REQUESTED  FET00180 

«♦..*  tuples,  as  currently  set-up  it  assumes  a  relational  fetooi90 

.....  ORGANIZATION  TO  THE  NSET  TUPLES  TO  BE  RETRIEVED.  IT  IS  FET  00200 

.....  currently  set  up  to  handle  select, PROJECT  and  JOIN  FET 002 1 0 

ON  JP  TO  5  N3ETS  OVER  A  TOTAL  OF  20  ATTRIBUTES.  FET00220 

.....  FET  00230 

•**♦♦•*•*».•*♦.♦•••«*♦.*•****•*•♦.•«.**•***.»**.»•****  FET00240 

.....  METHOD:  FET00250 

.....  1)  IT  BEGINS  BY  GOING  THROUGH  RE T_ARG . NSE T ( I )  AND  FOR  FET00260 

.....  EACH  USE  I  SPECIFIED  IT  CALLS  BUILDC  TO  FETCH  THE  FET00270 

.....  NSET  DEFINITION  CONTAINED  IN  THE  NSET  C AT ALOGUE . BU I IDC  FET002B0 

.....  RETURNS  THIS  INFORMATION  IN  NCAT,  AND  FETCHT  MERGES  THEFE  T  00230 

.....  THE  INFORMATION  CONTAINED  IN  NCAT  AND  RET_ARG  INTO  A  FET00300 

.....  STRUCTURE  CALLED  NCAT  2 .  AT  ThF  END  OF  THIS  PROCESS,  FET00310 

.....  NCAT2  CONTAINS  ALL  THE  INFORMATION  NECESSARY  TO  PRO-  FE100320 

.....  CESS  THE  REQUEST.  FET00330 

.....  2)  THE  NEXT  SUP  IS  TO  INITIALIZE  A  STRUCTURE  CALLED  N L ISTFE T 00340 

.....  WHICH  IS  USED  TO  HOLD  THE  VALUES  FOR  THE  NSET  NODES  FET00350 

.....  WHICH  MEET  THE  SELECT  RESTRICTIONS  FOUND  IN  RET_ARG  FET00360 

.....  3)  THE  NEXT  STEP  IS  A  2  PASS  PHASE  IN  WHICH  THE  SELECT  FET00370 

.....  RESTRICTIONS  ARE  TAKEN  INTO  ACCOUNT.  IN  PASS  1  IT  GOES  FET00380 

.....  1MR0UGH  ALL  THE  ATTRIBUTES  IN  NCAT2  AND  CHECKS  TO  SEE  FET003D0 

.....  IF  A ) A  VALUE  HAS  BEEN  SPECIFIED  AND  B)  WHETHER  THE  FET00400 

.....  ATIRICUTE  UNIQUEIY  OEUNES  A  TUPLE.  IF  SO,  IT  CALLS  FET00410 

.....  SEARCH  wiiICH  IF  IT  EXISTS  RETURNS  A  POINTER  TO  THE  FET00420 


•.*  OCCURENCE  OF  THE  ATTRIBUTE  VALUE.  IT  THEN  CALLS  SE L ECTFF E T 00430 
...  PASSING  IT  THE  POINTER  TO  THE  ATTRIBUTE  VALUE,  AND  THE  FET00440 
...  NAME  OF  THE  BSE  T  WHICH  DESCRIBES  THE  ATTRIBUTE-ENTITY  FET004S0 


LINK.  SELECTF  RETURNS  THE  ENTITY  NOOE  WHICH  LINKS  FET00460 

ALL  THE  ATTRIBUTE-VALUES  FOR  THAT  TUPLE.  THE  VALUE  OF  FET00470 
THE  NSET  NODE  IS  PLACED  IN  1 D_L I  ST . WH ICH  IS  A  TEMPORARVFE  T 004 80 
STRUCTURE. AND  NRECON  IS  CALLED  WHICH  COMPARES  THE  VALUEFET00490 
IN  10  LIST  AND  NL I  ST  {  I) ( NOT E :  THEME  IS  A  NLIST  FOR  E ACHF  E  T00500 
NSET  SPECIFIED  IN  RE T _ ARC)  AND  CRLAIES  A  NEW  NLIST(I)  FET00S10 
WHICH  CONTAINS  ONLY  THOSE  NSET  VALUES  WHICH  WHERE  IN  FET00520 
EOTH  I DL 1ST  AND  NLlST(l).  THE  2  ND  PASS  IS  SIMILAR  EX-  FET00S30 
THAT  IT  ONLY  LOOKS  AT  NON-UNIQUE  ATTRIBUTES  FOR  WHICH  FET00540 
VALUES  WERE  SPECIFIED.  AT  THE  END  OF  THIS  PROCESS  IF  FET00S50 
NO  RESTRICTIONS  WERE  SPECIFIED  FOR  THE  NSET  ALL  THE  FETC0560 

VALUES  FOR  THE  NSET  NODE  ARE  FETCHED  ANO  PLACED  IN  FET00570 

NLIST(I).  1 H 1 S  PROCESS  IS  REPEATED  FOR  ALL  OF  THE  NSET  FET00580 
SPECIFEO  IN  RE  T  _ ARG .  AT  THE  CONCLUSION  OF  ALL  THIS  FET00590 

NLIST  WILL  CONTAIN  ONLY  THOSE  NODES  WHICH  MEET  THE  FET00600 

SELECT  CRITERIA  IN  RE  I _  ARG .  FE1006I0 

4)  THE  NEXT  TASK  IS  TO  PERFORM  ANY  JOINS  WHICH  HAVE  BEEN  FET00620 

SPECIFIED.  THIS  IS  ACCOMPLISHED  BY  CALLING  NJDIN1  WHICHF  ET  00630 
IS  RESPONSIBLE  FOR  HANDLING  JOINS.  NJ01N1  IS  PASSED  FET00640 
THE  NUMBER  OF  NSETS  INVOLVED. AND  BECAUSE  NLIST  AND  NCAT F E T 00650 
ARE  OEFINEO  TO  BE  EXTERNAL  NUOINt  HAS  ACCESS  TO  THEM  ASFEIOOG60 
WELL.  N JO  1 N I  RETURNS  A  STACK(CTL)  CALLED  TUPLE  WHICH  FET00670 
CORRESPONDS  TO  THE  NSET  NODES  WHICH  SATISFY  THE  JOIN.  FEIOOGMO 
IF  ONLY  ONE  NSET  HAS  UEEN  SPECIFIED,  FETCHT  DOES  NOT  FET00G90 
CALL  NJCIN1  BUT  RATHER  BUILDS  TUPLE  ITSELF.  FET00700 

5)  THE  NEXT  STEP  IS  TO  RL  Cl  AN6UL  ARI  Zt'  THE  NSET  NODES  SO  FEI00710 

A  TABLE  CAN  BE  CREATED.  THIS  TASK  IS  PERFORMED  BY  T  ABN  FEI00720 
WHICH  USES  I  HE  TUPLE  STACK  (ALSO  DEFINED  AS  EXTERNAL)  FET00730 
TO  CREATE  A  TABLE  CALLED  TAB,  WHERE  EACH  ENTRY  IN  TAB  FEI00740 
AN  NSET  NOOE. ONLY  THOSE  NODES  WHICH  MET  BOTH  THE  SE LECT F E T 00750 
ANO  THt  JOIN  RESTRICTIONS  ARE  CONTAINED  IN  TAB.  FET00760 

6)  THE  LAST  STEP  IS  TO  FETCH  THE  ACTUAL  ATTRIBUTE  VALUES  FET0077 0 

WHICH  ARE  LINKED  TO  THE  NODES  IN  TAB  AND  WHICH  ARE  FEI007B0 

REQUESTED  IN  K  E  T  _ ARG  (l.E.  FOR  WHICH  RE T _ I NFO . F E TCH  *  FET00790 

■I'D).  THIS  IS  ACCOMPLISHED  BY  GOING  THROUGH  TAB  A  ROW  FEIOOBOO 
AT  A  TIME  ANO  USING  SELECTF  TO  FETCH  THE  ATTRIBUTE  FETOOB10 

ASSOCIATED  WITH  THE  ENTITY  NODES  CONTAINED  IN  TAB  IF  T  FET00820 
ATTRIBUTE  VALUE  IS  TO  BE  FETCHED.  THE  FETCHEO  VALUES  FE100U30 
ARE  PLACED  ON  A  STACK  CALLED  DOM  RET  (CTl  EXT).  EACH  FET00B40 
ENTRY  IN  DOM. RET  CONTAINS  AN  ID  WHICH  IDENTIFYS  THE  FET00U50 
NSET  ANO  DOMAIN  WITH  WHICH  THIS  VALUE  IS  TO  Be  FET00B60 

ASSOCIATED  AS  WELL  AS  THE  ACTUAL  DATA  ITEM.  FET00B70 

FE  T 008(10 
FET00890 

. . FET00900 

INPUT  PARAMETERS:  FET009IO 

1  RET. ARG  FET00920 

2  NUMN  NUMBER  OF  NSETS  INVOLVED  (UP  TO  5)  FET0C930 


7  NS  E  T ( 5 )  NAME  OF  EACH  NSET  (MUST  BE  PREVIOUSLY  OEF I  NED ) FET00940 
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2  AT  TR ( 20 )  A  TOTAL  OF  TWENTY  MAY  BE  SPEClFED.  FET00950 

3  N_INDEX  INDEX  TO  NS ET  NAME  IN  NSET  FET00960 

3  NAME  NAME  OF  AITRIBUTE  FET00970 

3  RET_INFO  USED  TO  CONTROL  FETCH  FET00980 

4  FETCH  ( ‘ t ' B  IF  YES.  ‘0'8  IF  NOT)  FET00990 

4  SAME  (IF  ATTRIBUTE  IS  THE  SAME  AS  A  PREVIOUS  FET01000 

ATTRIBUTE  (I.E.  A  JOIN  SITUATION)  SAME  FETOtOlO 

SHOULD  EQUAL  (  N. INDEX  OF  THE  NSET  WHICH  FET01020 
CONTAINS  The  PREVIOUSLY  SPECIFIED  ATTRIDUTEFCT01030 
♦  1 G ) +  WHICH  ATTRIBUTE  IT  WAS  WITHIN  THAT  FET01040 
NSET  (I.E.  THE  THIRD  ATTRIDUTE  DEFINED  WITHFE101050 
IN  THE  NSET  DEFINITION  OF  THAT  NSET).  FET01060 

OTHERWISE  SAME  =0.)  FET0I070 

4  VALUE  (IF  ATTRIBUTE  IS  TO  BE  RESTRICTED  FETOlOBO 

ON  A  CERTAIN  VALUE.  VALUE  SHOULD  FET01090 
EQUAL  THAT  VALUE.  OTHERWISE  IT  FET01100 

MUST  EQUAL  ' 0 1 0 t 0 1 0 1 ' B  WHI CH  FET011I0 

INDICATES  THAT  NO  RESTRICT  IS  WANTEDF E T 0 U 20 

FET01 130 
F  E  T  0 1 140 

OUTPUT  PARAMETERS:  FET01150 

1  DOMRET  CTL  EXT  FET01160 

2  0_I0  IDENTIFIES  NSET  AND  ATTRIBUTE  FROM  WHICH  FET01170 

THIS  VALUE  WAS  FETCHED.  ID  CONVENTION  IDENT I  CALF E T 0 1 1  BO 
TO  THAT  USED  IN  RE T _ ARG . S AME .  FET01190 

2  VALUE  THE  ACTUAL  DATA  ITEM  FOUND.  FIXED  LENGTH  OF  320FEI01200 

I  .....  BITS.  FET01210 

.....  FET0I220 

FE T0 1230 

.....  PROCEDL  TES  INVOKED:  FET01240 

»•*«•  SELECT  F ,  SEARCH,  FETCH.  BUILDC,  NRECON,  NJOIN1 .  TABN  FEI01250 

.....  FE 1 01260 

FET01270 

................  FEF0001 0 

FE  T  00020 

X  INCLUDE  NCAT F E  T  00030 
2  1  0  DCL  1  NCAT,  /»  NSET  CATALOGUE  ENTRY  »/  DCL00010 

2  NNAME  B I T ( 6 4 ) ,  /*  NAME  OF  NSET  »»/  DCL00020 

2  NATTR  BIT(C),  /*  NUMBER  OF  ATTRIBUTES  */DCL00030 

2  AT TR ( 20 ) ,  /.  UP  TO  20  ATTRIBUTES  */  DCL00040 

3  ANAMC  6 1 T ( 64 )  ,  /.  ATTRIBUTE  NAME  */  DCLOOOSO 

(3  KTYPE .  /•  UNIQUE  KEY  OR  NOT  */  DCLOOOOO 

3  BREL)  BI T ( 8 ) ,  /*  TYPE  OF  BSET  */  DCL00070 

(3  BSETUP,  /.  BSET ( ATTR->N  NODE)  •/DCLOOOBO 

3  BSETDOWN)  BIT(64);  /.  BSET < N_NODE->ATTR )  */DCL00090 

..............  FET  00030 

FET00040 

/*  RETRIEVAL  INFORMATION  */  FET00050 

X  INCLUDE  RETARG;****** ......... •♦♦*.*•**•*••*•*.*.***»*  ************ .»**FET00060 


DCL  1  d£r_ARG.  /•  USED  TO  RETRIEVE  NSETS  •/  DCL00090 

2  NUMN  B I T ( 8 ) ,  /•  NUM3ER  OF  NSETS  */  DCLOOlOO 

2  NSET  1 5 )  BI T ( 64 ) ,  /*  NAMES  OF  NSETS  TO  BE  FETCHED»/DCL001 1 0 


2  ARCS ( 20 ) ,  /*  INFO  FOR  EACH  ATTRIBUTE  */ 

3  N_IN0EX  SI T ( 8 )  ,  /.  WHICH  NSET  IS  THIS  IN  */ 
3  NAME  BIT(64),  /.  NAME  OF  ATTRIBUTE  */ 

3  RET_INFO,  /.  RETRIEVE  INFORMATION 

(4  FETCH,  /*  IS  IT  TO  BE  FETCHED  * 

4  SAME  )  0 IT(8 )  ,  /*  SAME  AS  PREVIOUSLY 


DCLQO 1 20 
DC  LO0 1 30 
DCL00140 


/•  RETRIEVE  INFORMATION  */  DCLOOISO 


4  FETCH,  /*  IS  IT  TO  BE  FETCHED  */ 

4  SAME  )  0 IT(8 )  ,  /*  SAME  AS  PREVIOUSLY 
DEFINED  DOMAIN  */ 

4  VALUE  BIT( 160  )  ;  /*VALUE  TO  SEARCH  ON  OR 
NONE  */ 


/*  M1SC  DCL  */ 

DCL  N0TJ31VEN  BIT(8)  IN  I T ( ' Ol 0 1 0 1 0 1 ’ B ) , 

(10.102, IDPOS)  POINTER, 

N  TAG  B I T ( 32 ) , 

I  FIXED  BIN(8), 

TEMPI  CHAR<8), 

TEMP2  BIT(32); 

/*  STRUCTURE  HOLOS  NSET_CAT  DEFINITIONS  AND  RET_INFO  FOR  EACH  NSET  */ 
OCL  1  NCAT2 ( 5 )  EXTERNAL, 

2  NNAME  BIT (64) , 

2  NATTR  B I T ( 8 ) , 

2  AT  TR( 20 ) , 

3  ANAME  BIT (64), 

3  K  TYPE  B I T ( 8 ) , 

3  BREL  BIT( 6) , 

3  eSETUP  Bt  T ( 64 ) , 

3  Oo E T DOWN  BIT(64), 

3  RET.INFO, 

4  FETCH  B I T ( 8  )  , 

4  SAME  BIT(B)  , 

4  VALUE  B I  T (  1  60 ) ; 

/*  HOLOS  ENTITY  NODE  TAGS  WHICH  MEET  SELECT  RESTRICTIONS  •/ 
DCL  1  NLIST(S)  STATIC  EXT  , 

2  NUM  FIXED  B 1 N ( 1 5 )  , 

2  NODE ( 50 )  BI T ( 32 ) , 

/*  RECTANGULARIZEO  VERSION  OF  TUPLE  */ 

1  TAB(S  )  STATIC  EXT . 

2  ROW  NUM  F I XEO  BIN(15) , 

2  ROW (50)  B I T (32 ) , 

/*  HOLDS  ENTITY  NODE  TAGS  WHICH  MEET  SELECT  AND  JOIN  CRIT  */ 
1  TUPLE  CTL  EXT, 


DC  LO0 1  GO 
DCLOO I  7 0 
DC  LO0 1 80 
DCLOO 190 
0CL00200 
F  E  T  00060 
F  E  T  0007 0 
F  E  T  00080 
FE  T  00090 
FETOOIOO 
FET001 to 
FE  TOO  I  20 
FET00130 
FET00140 
FET00150 
FET0OI60 
F  E  T  00  T  70 
F  E  T  00 1 80 
FET00190 
FE  T  00200 
FE  T 002 1 0 
FET  00220 
F  E  T  00230 
FET  00240 
FET  00250 
F  E I  00260 
FET  00270 
FET  00280 
FET 00290 
FET  00300 
FET  0031 0 
F  E  T  00320 
FET  00330 
FET  00340 
FE  T  00350 
FET003G0 
FE  T  00370 
FET  00380 
FET  00390 
FET00400 
FE.T004T  0 
FET00420 


] 


2  0_I0  FIXED  BIN(IS),  FET00430 

2  NODE  B I T ( 32  )  ,  FET00440 

FET  00450 

/•  DOMAIN  VALUES  RETURNED  TO  EXTERNAL  LEVEL  •/  FET00460 

1  DOM  _RET  CU  EXT,  FE'00470 

2  D_ ID  FIXED  BIN(15),  FET004UO 

2  VALUE  BI  T  (  320  )  ,  FE100490 

FE  100600 

/«  TEMPORARY  STACK  TO  HOLO  DOMAIN  VALUES  •/  FETOOGtO 

1  0_TEMP  C T L  EXT.  FET00G20 

2  D_ 1 0  FIXED  BIN(15),  FETOOSJO 

2  VALUE  Bl T ( 320 } ,  FETCCS40 

FETOOSSO 

/.  TEMPORARY  COPY  OF  NLIST  ♦/  FETOOSGO 

1  I DL 1ST  STATIC  EXTERNAL,  FET00S70 

2  MUM  FIXED  BIN(15)  INIT(O),  FET006B0 

2  NODE (  50 )  BI T ( 32 ) ;  FET00S90 

FETOOGOO 

X  INCLUDE  IDS1  ••••FE I  006 1 0 

/•  POINTER  STACK  RETURNED  BY  SEARCH  */  BCA00420 

DCL  IDS)  PTR  EXTERNAL  CONTROLLED;  BCA00430 

..............  FET00610 

X  INCLUDE  INFOUNO;.. f E T 00G20 
/*  DATA  STACK  RETURNED  BY  FETCH  */  BCA00450 

DCL  INFO  NO  BIT (320)  EXTERNAL  CONTROLLED;  BLA00460 

.................  F  E  T  00620 

DCL  I  DP  1  POINTER  EXT  CTL,  FET00630 

UNIQUE  BIT(B)  STATIC  EXT,  IDXX  PTR  EXT;  FFT00640 

FEIC0650 

/*  PROCEDUIES  CALLED  •/  FEIOCGGO 

X  INCLUDE  ENJQ INI FET 00670 
/•  JOIN  MOOULE  •/  DEC00020 

DCL  N  JO  I  N 1  ENTRY  RE  TURNS  (  F  I  XE  D  BIN(  !•>));  DEC00030 

. . .  FET  00670 

X  INCLUDE  ESELECF;.* FET00G80 
/•  BSET  RETRIEVAL  MODULE  */  DECOOOSO 

DCL  SELECT  F  ENTR Y ( B I T ( 2 ) , PO I  NT ER , B  I  T ( 64 ) , BI T ( 3 20 ) , POINTER ) ;  DECOOOGO 

....... ..........  FETOOGBO 

X  INCLUDE  EFETCH; ...FET 00690 
/.  FETCH  PSET  MOOULE  »/  EFE00010 

DCL  FETCH  ENTRY ( B I T ( 2 ) , PO INT ER , B I T ( 64 ) , BI T (64 ) , BI T ( 1 ) ) ;  EFE00020 

................  FETOC690 

X  INCLUDE  ESEARCH; **  f E T 00700 

/*  SEARCH  MOOULE  */  BCA00700 

DCL  SEARCH  ENTRY ( B I T ( 2 ) , B l T ( 64 ) , B I T ( 64 ) . POI NTE R . POINTER )  ;  BCA00710 

BCAOO720 

.................  FET  00700 

X  INCLUDE  EBUI ICC; FE T007 1  0 
/*  TSET  CATALOGUE  ENTRY  RETRIEVAL  MODULE  */  DEC00110 


DCL  0LILDC  ENTRY ( BI T( 64 ) ,  1.  2  BIT(64),2  BIT(8).  2  (20), 
3  B I T ( 64 ) ,  3  BI T ( 8 ) ,  3  BIT(8),  3  BIT<64). 

3  BIT (64)) ; 


X  INCLUDE  ETABN; «*••»•»«»**«»**»**»**•**•»*»*»**♦•»•******♦•***•**** 

!•  REC T ANGULAR 1 2 AT  I ON  MODULE  »/ 

DCL  T  ABN  ENTRY; 


%  INCLUDE  ENRECOI;*»«***»»*»»«*»»****»»«*»»*******«»*«**»****»»***** 
/»  ENTITY  NODE  RESTRICTION  MODULE  */ 

DCL  NRECON  ENTR 1 ( B I T ( 1 ) . 1 ,  2  FIXED  BIN(15),  2  (*)  BIT(32), 
1,  2  FIXED  BIN(15),  2  (50)  BIT(32)); 


/*  BUI LD  NSET )CAT  */ 

K  =  1  ; 

00  I«I  TO  R ET_ARG . NUMN ; 

1K  =  BIN (  I )  ; 

/•  GET  NSET_CAT  ENTRY  FOR  NSET  */ 

CALL  BUILDC<  RET.ARG . NSE T ( I ) , NC  AT ) ; 

NC AT2 (  1 )  . NN AME=NCAT . NNAME ; 

NCAT2 (  IJ.NATTR-NCAT.NATTR; 

JJ  =  0 ; 

/«  FOR  EACH  ATTRIBUTE  IN  NSET  */ 

DO  1 1  I  =  K  TO  20  WH l L£ (N_I NOEX( l I  I ) *  I K ) ; 
J  J  =  JJ<-1  ; 


/♦  FIND  RET_ARG  ENTRY  FOR  ATTRIBUTE  */ 
DO  11  =  1  TO  NC  A  T  2 ( I )  . NA  T  TR  ; 

IF  RE  T_ A RG . NAME ( III) =NCAT. ANAME( II) 
THEN  LEAVE; 


/*  ENTER  REST  OF  INFO  FOR  ATTRIBUTE  •/ 

N  C  A  T  2  (  I  )  •  ANARIE  (  JJ  )  =  NCA  T  .  A  NAME  (  I  I  )  ; 

N  CAT2 ( I ).K_TYPE(JJ) =NCAT  .  K  TYPE) 1  I ) ; 

NCAT2( I ) .BREL ( JJ ) =NCAT . ER EL ( II); 

NCAT2( I ) .BSETUP( JJ)=NCAT. BSE  TUP ( II); 

NCAT2( I ) . BSE T DOWN ( U J ) =NC A T . BSE T DOWN (  II); 

NCAI 2(I).ATTR(JJ).RET_INFQ=RET  ARG(III).RET  INFO; 

END; 

K  =  1 1 1 ; 

/*  END  OF  BUILD  CAT  SEQUENCE  »/ 

/*  INITIALIZE  NLTEMP  */ 

DO  J--1  TO  5; 

NLIST(U). NUM«0 ; 


DEC00120 
DEC001 30 
DEC00140 
FET00710 
***»FET00720 
DEC00160 
DEC001 70 
FE  T  00720 
••••FET00730 
DEC00190 
DEC00200 
DECC021 0 
FE  T  00730 
FE 1 00740 
FET  00750 
FET00760 
FET  00770 
FET007B0 
FET  00790 
FET00800 
FET008I0 
FET  00820 
FE  T  00830 
FET  00840 
FET  00850 
FET  00860 
FET  00070 
FET  00800 
FET  00890 
FET  00900 
FET  009 1 0 
F  E 1 00920 
FET  00930 
F  E  T  00940 
F  E  T  00950 
FET  00960 
FET  00970 
FET  00980 
FET  00990 
F  E  T0 1 000 
FET01010 
FE  T  0 1 020 
FET01030 
FE  T0 1 040 
FET01050 
FET01C60 
FE  T 0 1 070 
F  E  T0 1 080 
FET01090 
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40  1  t 

41  1  2 

42  1  2 

43  1  1 


44  1  0 

45  1  1 

46  1  1 


47  1 

48  1 


49  1  4 


50  1  4 

51  1  5 

02  1  5 

53  1  5 

54  1  4 

55  1  4 


56  1  4 


62  1  4 

63  1  4 

64  1  4 

65  1  3 

66  1  2 


DO  JJ  =  1  TO  50;  FET01100 

NLIST(U).  NODE  (  J  J  )  *  0 ;  FET01110 

END;  FET01120 

END;  FET01130 

FET01140 

/*  RESTRICTION  PHASE  ♦/  FET01150 

/*  FOR  EACH  NSET  IN  NCAT2  */  FET01160 

DO  J=1  T  3  R  ET_ARG . NUMN ;  FET 01170 

RE  >TR  I  CT=  ‘  0  ' Q;  FETO110O 

DO  JJ= 1  TO  2;  FET01 190 

FET01200 

/*  PASS  1  -  RESTRICTS  ON  KEY,  PASS  2  OTHER  RESTRICTS*/F£ T 0 1 2 1  0 


DO  K  =  1  TO  NCAT2(J) .NATTR;  FET01220 

IF  NCAT2( 0) .VALUE(K) **NDT_GIVEN  FETO1230 

THEN  IF  <  (  NCA T 2(  J )  . K  T YPE { K ) * =UNIQUE  &  FET01240 

Jd=2)i(NCAT2(J) .K  TYPE ( K ) »UN IQUE  &  FET01250 

Jd*1))  "  FE  T  0)260 

THEN  DO;  FET01270 

FE  T0 1 200 

/*  GET  ID  OF  ATTRIBUTE  INSTANCE  IN  NSET  •/  FET012S0 
CALL  SEARCH! *01 ' B,NCAT2(J) . ANAME(K),  FET01300 

NCAT2(d).VALUE(K),  IDXX.IDPOS);  FET01310 

FE 1 0 1 320 

IF  ALL0CATI0N(lDSl)-0  FE  T0 1 330 

THEN  00;  FET01340 

PUT  SKIP  E D I T ( ‘ NQ  TUPLE  EXISTS')(A);  FET0I350 
RETURN;  FET01360 

END;  FE  T0 1 370 

/»  SET  ID  TO  POINT  TO  INSTANCE  */  FET01360 

ID- I DS1 ;  FET01390 

FREE  I0S1 ;  FET01400 

FET01410 

/*  GET  ASSOCIATED  NSET  NODES  */  FET01420 

CALL  SELECTF ( 1 1  1  • B, ID,NCAT2(d) . BSETUP(K) ,  FEI01430 

1 0 ‘ B , 1 02 ) ;  FE  T0 1 440 

FE  T0 1 450 

/*  PLACE  RETURNED  ENTITY  NODES  IN  IDLISW  FET01460 

IDL I  ST . NUM  =  AL LUC AT  ION l INFO  ND);  FET01470 

DO  UK  =1  TO  I DL I  ST . NUM;  ”  FET01480 

IDL I  ST . NOD E ( JK ) » 1 NFO  ND;  FET01490 

FREE  INFO_ND;  FET01500 

END;  FET01510 

FET  0 1 520 

/*  CALL  NRECON  TO  GET  INTERSECTION  WITH  NLTEMP*/FE I  0 1 530 
CALL  NRECON( RESTRICT ,NLIST(<J) , ID  LIST ) ;  FET01540 

RESTRICT  *  1 1  *  B;  FET01550 

END;  FET01560 

ENO;  FET01570 

EF  i;  FET01580 


IF  ALL0CATI0N(lDSl)-0 
THEN  00; 

PUT  SKIP  E D I T ( ‘ NQ  TUPLE  EXISTS*)(A); 
RETURN; 

END; 

/*  SET  ID  TO  POINT  TO  INSTANCE  */ 

ID* I DS1 ; 

FREE  IDSI  ; 

/*  GET  ASSOCIATED  NSET  NODES  */ 

CALL  SELECTF ( 1 1 1 • 8 , I D , NCAT2 ( d ) . BSETUP( K ) , 
1  O' B, ID2) ; 
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67  1  1 

68  1  2 

69  1  2 

70  1  2 

71  1  2 

72  1  3 

73  1  3 

74  1  3 

75  1  2 

76  1  1 


77  1  0 

78  1  1 

79  1  1 

80  1  1 


81  1  0 

•  82  1  1 

83  1  2 

84  1  2 

85  1  2 

86  1  2 

87  1  1 


88  1  0 


89  1  0 

90  1  1 

91  1  2 


92  1  3 


93  1  4 

94  1  4 


/*  IF  NO  RESTRICTIONS  ON  NSET  GET  ALL  ENTITY  NODES  */ 

IF  RES  TRICT  = 1 0 ‘ 8 
THEN  DO; 

IO=NULL(  )  ; 

CALL  FETCH(  ‘11  * B , ID , NCAT2 ( J ) . NNAME , ' 0 ' 8 , 1 1  * B ) 5 
NLIST(J) . NUM=ALLOCAT ION( INFO  ND) ; 

DO  1=  1  TO  NLIST( J) . NUM; 

NLIST(J).NODE(I)=INFO  nd; 

FREF.  INFO_ND; 

END; 

END; 


/«  BEGIN  JOIN  LOGIC  */ 

IF  NUMN>1  THEN 
DO; 

L  =  NUMN  J 

/♦  CALL  NJ0IN1  TO  HANOLE  JOIN  LOGIC  */ 
.'IUM_NOOES=NUOIN1(L); 

END; 

/*  IF  NO  JOINS  BUILD  TUPLE  FOR  NSET  1  •/ 

ELSE  DO; 

00  K» 1  TO  NLIST.NUM(I); 

ALLOCATE  TUPLE; 

TUPLE. D_1D=1 ; 

TUPLE . NODE-NL I  ST ( 1 ) . NODE(K); 

ENO; 

ENO; 

/*  RECT ANGULARIZE  CONTENTS  OF  TUPLE  FOR  RELATION  */ 

CALL  T  A  BN ; 

/•  CONSTRUCT  DOMAIN  STACK  */ 

DO  1=1  TO  TAB ( 1 ) .ROW_NUM; 

DO  11=1  TO  NUMN  ; 

DO  1 1 1 = 1  TO  NCAT2( II) .NATTR; 

/*  IF  TO  BE  FETCHED  AND  NOT  FETCHED  ALREADY  */ 

IF  NCAT2< II )  .FETCH!  Ill)*  '  1 'B  S 

NCAT  ? (II)  .  SAME (  III)  = ' 00000000 ‘B 
THEN  DO; 

/«  FETCH  DATA  VALUE  */ 

ID=NULL( ) ; 

CALL  SE  LECTF (  '01 1 B, I D ,NCAT2( 1 1 ) . BSETDOWN 

(iii).tab(H).row(u.id2); 


FET01590 
FET01600 
FET01610 
FET01620 
FET01630 
FETO 1 640 
FET01650 
FET01660 
FET01670 
F  E  T0 1 680 
FET01690 
FET01700 
FE  TO  I  7 1 0 
FET  0 1 720 
FET01730 
FET  0 1 740 
FET01750 
FET01760 
FE  T0 1 770 
FET01780 
FET01790 
FE T  0 1 800 
FE  T0 1 0 1 0 
FE  T  0 1 820 
FET01830 
FE  T  0 1 840 
FET01850 
FET01860 
FET01870 
FE  T 01880 
FET0I890 
FET01900 
FET019I0 
FET01 920 
FE  TO  1 930 
FE  T  0 1 940 
FE  TO  I  950 
FET01960 
FET01970 
FE  TO  1 980 
FETCI990 
FET  02000 
FET  020 1 0 
FET02020 
FET02030 
FET  02040 
FET02050 
FET02060 
FET02070 


255 


95  1  4 

96  1  4 

97  1  4 

98  1  4 

99  1  4 

100  13 

101  12 


102  1  1 

103  12 

104  12 

105  12 

106  12 


END; 
end  ; 


/•  PLACE  ON  TEMPORARY  STACK  */ 
ALLOCATE  D_TEMP; 

0  _  T  E  MP . D_ID=I 1*16+11 1; 
oIlEMP . VALUE* INFO.ND; 

FREE  INFO_ND; 

ENO; 


/*  RE'  ERSE  OROER  OF  ELEMENTS  ON  STACK  */ 
DO  WH.LE( ALLOCATION(O_TEMP)*s0); 

ALLOCATE  OOM_R£T ; 

DOM  RET  =  0_TEMP; 

FREE  Q_TEMP ; 

END; 


107  11 

108  10 

109  10 


END; 
RETURN 
END  FETCHT; 


FET02080 
FET  02090 
FET02100 
FET021 10 
FET  021 20 
FET02130 
FET02140 
FET02150 
FET02160 
FET02170 
FET  02 1 80 
F  El  02 1 90 
FET  02200 
FET  022 1 0 
FET02220 
FET  02230 
FET02240 
FET02250 
FET02260 


I 


I 


X  INCLUDE  NJ0IN1 ;•••**«•*«*♦****♦»»♦♦•***»•»*•*••** »».«•*****.*..*♦**** »NJOOOO 1 0 

FOROOOIO 

*  MODULE  DESCRIPTION  •  FOR00020 

FOROO03O 

N JO  INI :  PROCEDURE  FOR00040 

(L  /‘FIXED  B I N ( 15)  */)  FOR00050 

RETURNSf F IXEO  BIN(15))  FOR00060 

RECURSIVE:  FQR00070 


«*.*»*•  FOROOOBO 

PURPOSE:  FOR00090 

1HIS  MODULE  IS  RESPONSIBLE  FOR  HANDLING  JOINS  BETWEEN  FOROOIOO 

ONE  OR  MORE  NSETS.  WHEN  ORGINALLY  CALLED  BY  FETCHT  IT  FOROOIIO 

MAKES  USE  OF  THE  INFORMATION  CONTA1NFD  IN  NCAT2  TO  FQR00120 

DETERMINE  WHAT  DOMAINS  ARE  TO  BE  JOINED.  AND  IT  USES  FOR0O130 

THE  NSET  NODES  CONTAINED  IN  N I.  1ST  AS  ITS  UNIVERSE  OF  FQR00140 

POSSIBLE  TUPLES.  AS  CURRENTLY  IMPLEMENTED  IT  WILL  ONLY  FDR00150 
HANDLE  JOINS  ON  ELEMENTS  HAVING  EQUAL  VALUES.  F0RC0I60 

Also.  IT  REQUIRES  THAT  ALL  JOINS  BE  EXPRESSED  IN  TERMS  FOR00170 

PREVIOUS  NSETS.  THAT  IS.  WHEN  AN  ATTRIBUTE  IN  NSET  L  IS  FOROOIBO 

DEFINED  TO  BE  THE  SAME  AS  A  DOMAIN  IN  ANOTHER  NSET  J,  FQR00190 

J  MUST  BE  LESS  THAN  L.  THIS  RESTRICTION  DOES  NOT  COMPROMISFOR00200 
THE  GENERALITY  OF  THE  JOIN  LOGIC.  IT  DOES  .HOWEVER,  RE STR I FOR002 1 0 


THE  MANNER  IN  WHICH  THE  JOIN  IS  EXPRESSED. 


•#•***♦♦•*♦♦  *  *  »  * 

METHOD: 

TL  IS  IS  A  RECURSIVE  PROCEDURE  WHICH  BUILDS  TUPLES  A  TUPLE 
AT  A  TIMt,  AND  CREATES  A  STACK  OF  NSET  NODES  WHICH  COR¬ 
RESPOND  TO  THE  JOINED  TUPLES.  THE  STRATEGY  EMPLOYED  IS 
AS  follows: 

1 )  I T  BEGINS  BY  CREATING  A  TEMPORARY  COPY  OF  THE  RELEVANT 
NSET  NODES  IN  A  CONTROLLED  STRUCTURE  CALLED  NLTEMP 

IF  NO  PREVIOUS  ALLOCATIONS  OF  NLTEMP  EXIST  THEN  A  COPY 
OF  NLIST  IS  MADE.  OTHERWISE,  A  COPY  OF  THE  MOST  RE¬ 
CENT  ALLOCATION  OF  NLTEMP  IS  MADE. 

2) 17  THEN  COES  THROUGH  THE  NODES  CONTAINED  IN  NLTEMP(L) 
WHICH  CORRESPONDS  TO  THE  NSET  NODES  OF  THE  LAST  NSET 
TO  BE  JOINED.  FOR  EACH  NODE  IT  GOES  THROUGH  THE  FOL¬ 
LOWING  LOOP: 

A)  IT  PLACES  A  CUPY  OF  THE  NODE  ON  THE  TOP  OF  A  STACK 
CALLED  TUPLE. 

B )  I T  THEN  GOES  THROUGH  ALL  THE  ATTRIBUTES  OF  THAT 
NSET  NODE  TO  SEE  IF  ANY  ATTRIBUTE  IS  DEFINED  IN 
NCAT2  TO  BE  THE  SAME  AS  AN  ATTRIBUTE  OF  ANOTHER 


NSET. 
1  >  IT 


IF  SO: 
DETERMINES 


THE  NSET  AND  DOMAIN  WITHIN  THAT 


FGR00220 
FOR00230 
FOR00240 
F0R00250 
FOR00250 
FOR00270 
FOR00280 
FORC029O 
FOR00300 
F0R0031 0 
F0R00320 
FOR00330 
FORC0340 
F0RC0350 
FORC0360 
FDR00370 
FOW90390 
FOR00390 
FOR00400 
FOR004 1 0 
FOR90420 
F0R00430 
F0R00440 
FOR00450 


NSET  BY  DECOMPOSING  NCAT2.SAME  FOR  THE  ATTRIBUTE. 

THIS  IS  REFERRED  TO  AS  J.NSET  AND  U -DOMAIN  cnonnano 
PP^PFrt 1 VEL Y .  rUKUU^oW 
IT  THEN  FINDS  THE  OCCURENCE  OF  THE  ATTRIBUTE  F0"0^90 
WHICH  IS  LINKED  TO  THE  NSET  NODE  ON  THE  TUPLE  S TACKFQR00500 


THIS  IS  ACCOMPLISHED  VIA  A  CALL  TO  SELECTF. 

3)  IT  THCN  RETRIEVES  all  OF  THE  NSET  NODES 

IN  J-NSET  WHICH  ARE  ASSOCIATED  WITH  THAT  OCCURENCE 
OF  J  OO'.'AIN.  THIS  IS  ACCOMPLISHED  THROUGH  A  CALL 
TO  SELECTF,  PASSING  IT  THE  VALUE  OF  THE  ATTRIBUTE 
NODE  AND  THE  NAME  OF  THE  6SET  WHICH  LINKS  THE 
J  DOMAIN  ATTRIBUTE  IN  U-NSET  TO  THE  ENTITY  NODE 
IN  O.NStT . 

4)  IF  THE  NUMBER  Or  NSET  NODES  FOUND  ■=  0 

THEN  NO  COIN  IS  POSSIBLE  WITH  THE  NSET  NODE 
CURRENTLY  ON  THE  TOP  OF  THE  STACK  AND  SO  YOU 
POP  THE  STACK  ANO  DROP  OUT  OF  THE  LOOP.  OTHERWISE 
THE  NSET  NODES  FOUND  ARE  COMPARED  WITH  THE 
NSET  NODES  CONTAINED  IN  NL T EMP I J_NS ET )  AND  A 
A  TEMPORARY  STRUCTURE  IS  CREATED  WHICH  CONTAINS 
THE  INTERSECTION  Of  NL T EMP( J_NSE T )  A NO  THE  NSET 
NOOES  FOUNO-  If  THE  INTERSfCTICN  IS  EMPTY,  NO 
JOIN  IS  POSSIBLE  ,  THE  STACK  )5  POPPED  AND  YOU 
DROP  Out  OF  THE  LOOP.  OTHERWISE.  NL T EMP ( J-NSET ) 
EQUAL  TO  THE  TEMPORARY  STRUCTURE. 

5)  THIS  LOOP  IS  CONT1NUF.D  TOR  ALL  OF  THE  ATTRIBUTES 
ASSOCIATED  WITH  THE  NSET  NODE  ON  THE  TOP  OF  THE 
STACK-  AT  THE  ENO  OF  THE  LOOP  NLTEMP  WILL  CONTAIN 
ONLY  THOSE  NSET  NOOES  WHICH  ARE  CONSISTENT  WITH 
JOINS  WITH  THE  LTH  NSET  AND  FOR  THE  PARTICULAR 
OCCURENCE  OF  THE  NSET  NODE. 

C)  IT  THEN  CHECKS  I HE  CURRENT  VALUE  OF  L .  IF  L  > 

2  THEN  N JO  INI  CALLS  ITSELF,  PASSING  ITSELF 
L-T.  THE  EFFECT  OF  THIS  IS  TO  PERFORM  THE  JOIN 
LOGIC  ON  THE  NOOES  IN  NL I EMP  FOR  NSETS  ( L= I 

TO  L-t).  WHEN  N JO  I N 1  RETURNS,  IT  RETURNS  THE 
NUMBF.R  OF  NSET  NODES  WHICH  IT  ADDED  TO  THE  TUPLE 
STACK.  IF  NO  NODLS  WERE  ADDED  THEN  NO  COIN  IS  POS¬ 
SIBLE  AND  THE  STACK  IS  POPPED,  OTHERWISE  THE 
STACK  CONTAINS  T  OR  MORE  COMPLETC  TUPLES  ASSOCIATED 
WITH  THE  ORGINAL  NODE  ON  THE  TOP  OF  THE  STACK.  IT 
T  HFN  PROCEEDS  TO  THE  NEXT  NSET  NODE  ON  NETEMP(L). 

D)  IF  L=  2  THEN  THE  CONTENTS  OF  NL T FMP ( I  )  ARE  PLACED 
ON  THE  TCP  OF  THE  STACK.  IF  NLTEMP  IS  EMPTY  THEN 
NO  JOIN  IS  POSSIBLE  AND  THE  STACK  IS  POPPED.  IN 
ANY  EVENT  IT  THEN  PROCEEDS  TO  THE  NEXT  NSET  NODE 
ON  NETEMP(L) 

3)  AFTFR  GOING  THROUGH  ALL  THE  NSET  NODES  IN  NLTEMP(L) 

IT  FREES  THE  CURRENT  ALLOCATION  OF  NLTEMP  AND  RETURNS 


FOR0051 0 

F0R00520 

F0RC0530 

FOROOSRO 

F0R00S50 

FOR00560 

FOR0057O 

FOR00580 

F0R00590 

FOROOGOO 

FQR00610 

FOR00620 

FOROOG30 

FOR00640 

FOROOoSO 

FDR0D660 

FOR00670 

FOROOGBO 

FORD0690 

FQR00700 

F0R0071 0 

FORO072O 

FOR00730 

FON0O74O 

FOR007S0 

F0R00760 

FOR00770 

FOR0O78O 

F0R00790 

FOROOBOO 

FOROOBIO 

FOR00820 

FORC0B30 

FOROOBAO 

FORC0850 

FOR00860 

FOR00870 

FOR008B0 

FOR00890 

FOR00900 

FOR0091 0 

FOR00920 

F0R00930 

FQR00940 


PL/I  OPTIMIZING  COMPILER 


XINCLUDE  NJOIN1 ; 


STMT  LEV  NT 


I 

K> 

LT1 

CO 

1  2  10 


3  1  0 


4  1  0 


**»  THE  NUMBER  of  NODES  ADDED  TO  THE  TUPLE  STACK. 


input  parameters: 

L  -  THE  HIGHEST  RELEVANT  NSET  (SEE  PURPOSE) 

NOTE:  THIS  PROCEDURE  MAKES  USE  OF  SEVERAL  EXTERNAL 

ARGUMENTS,  INCLUDING  NL 1  ST  (CREATED  BY  FETCHT) 
NCAT2  (ALSO  CREATED  BY  F E fCHT ) 


+  +  «*•***  ♦  *  *  *  *  *«****«***%***  +  *  +  *  +  *«*t*.***44*  +  *+  4»****««*  +  #**  +  *  + 

OUTPUT  PARAMETERS: 

1  TUPLE  CTL  EXT 

2  D_ID  BIT(B)  SPECIFIES  WHICH  NSET  THIS  IS 

FOR  WHICH  THIS  IS  AN  NSET  NODE 
2  NODE  B I T ( 32 )  CONTAINS  THE  NSET  NODE  TAG  WHICH 
UNIQUELY  IDENTIFIES  AN  OCCURENCE 
OF  AN  NSET. 


•  PROCEDURES  INVOKED: 

»  SELECT  F ,  NJOINI 

* 

.t*********»*  +  *******««4*««W«*»<*******«**»»»**«*»***««*»*#*»****/ 


/-  RETRIEVAL  AND  NSET  ORGANIZATION  INFO  */ 

DCL  1  NC AT  2(5)  EXTERNAL, 

2  NNAME  BIT (64) , 

2  IAT  T  R  BIT(B)  , 

2  ATTR ( 20 ) , 

3  ANAME  BIT (64). 

3  K  _T Y  PE  BIT(B), 

3  BREL  B I T  c  0 )  , 

3  3SETUP  B 1 T ( 64 ) , 

3  BSETOOWN  BIT (64), 

3  RET  INFO, 

4  FETCH  BIT<8), 

4  SAME  BIT( 8) , 

4  VALUE  BIT ( 160) ; 

/*  HOLDS  ENTITY  NODES  THAT  SATISFIED  RESTRICTIONS  */ 
DCL  1  NLIST(S)  STATIC  EXTERNAL, 

2  NUM  FIXED  B I N ( 15) , 

2  NODE ( 50 )  BIT(32); 

/*  TEMPORARY  STRUCTURE  TO  HOLD  NODES  MEETING  A  GIVEN 
JOIN  RESTRICTION  */ 

DCL  1  NLTE MP ( 5 )  CTL  EXTERNAL, 

2  NUM  FIXEO  BIN( 15) , 


FQR00950 
FOR00960 
FOR00970 
FOR00980 
FOR00990 
FOROIOOO 
FOROl 01 0 
FORO1O20 
FOROl 030 
FOR01040 
FOROl 050 
FOROl 060 
FOROl 070 
FOROIOOO 
FOROl 090 
FOROl 100 
FOROl 110 
FOROl 120 
FOROl 130 
FORO 1140 
FOROl 150 
FOROl 160 
FOROl 170 
NJ000010 
NJ000020 
NJ000030 
NJ000040 
NJ000050 
N JOOOOGO 
NJ000070 
N JOOOOBO 
N J000090 
NJ000100 
NJOOOI 10 
NJOOOI 20 
NJ000130 
NJOOOI 40 
NJ000150 
N JOOO 1 60 
NJOOOI 70 
NJOOOI 80 
N JOOO 1 90 
NJ000200 
NJ000210 
NJ000220 
NJ000230 
N J000240 
NJ000250 
N J000260 


2  NOO  e ( 50 ) 6 1 T ( 32 ) ;  NJ000270 

NJ000280 

/*  STACK  OF  ENTITY  NODES  MEETING  JOIN  AND  SELECT  RESTRICTIONS*/NJ000290 

5  1  0  DCL  1  TUPLE  CTL  EXT,  NJ000300 

2  0_ I D  FIXED  BIN (15),  NJ000310 

2  NODE  B I T ( 32 )  ;  NJ000320 

6  1  0  DCL  1  TEMP (5),  NJ000330 

2  NUK  FIXED  B I  N(  1  5  )  ,  NJG003-10 

2  NOD  E(50)BIT(32) ;  NJ000350 

NJ000360 

7  1  0  DCL  1  T_LIST,  N J000370 

2  NUM  FIXED  BIN(IS),  NJO003B0 

2  NODE ( 50 )  61 T ( 32 ) ;  NJ000390 

%  INCLUDE  I DS 1  . . .  *..«*.**.*.*»»»»«*»**•*».  ***.**»**»****.**.**.NJOOO-100 

/*  POINTER  STACK  RETURNED  BY  SEARCH  •/  BCA00420 

8  1  0  DCL  IOSl  PTR  EXTERNAL  CONTROLLED;  BCA00430 

..............  N. 1000400 

X  INCLUDE  INFO UNO; •  • ***.NJ0004 1 0 
/«  DATA  STACK  RETURNED  BY  FETCH  »/  BCA00450 

9  1  0  DCL  I NFO_N 0  BIT(320)  EXTERNAL  CONTROLLED;  8CA00460 

NJ000410 

/•  MISC  DECLARATIONS  */  NJ000420 

k  10  1  0  DCL  (  10.1D2  ,  ICPOS)  POINTER  INIT(  NULL()).N  TAG  CHAR(8);  NJ000430 

Ul  11  10  DCL  IOXX  POINTER  CONTROLLED;  ”  NJ000440 

VO  12  1  0  DCL  (OK, FND .STATUS)  B I V ( 1  )  INIT(“I'B),  NJ0004S0 

•  TEMPI  BITI320);  NJ000460 

/*  PROCEDURES  CALLEO  ♦/  NJ000470 

NJ000480 

%  INCLUDE  ENJ0IN1 ; » ...NJ000490 
/•  JOIN  MODULE  */  DEC 00020 

13  1  0  OCL  NJLIMI  ENTRY  RE  TURNS ( F I XE D  BIN(IS));  LiC00030 

. . NJG00490 

%  INCLUDE  ESELECF ;• *»NJ000500 
./*  8SET  RETRIEVAL  MODULE  */  DEC00050 

14  1  0  OCL  SELECTF  ENTR Y( BI T ( 2 ) , POINTER, 8  I T ( 64 ) , B t T< 320 ) , POINTER) i  DEC00060 

..................  NJ000500 

X  INCLUDE  EFE  TCH; *» ***NJ0005 1 0 
/•  FETCH  PSET  MODULE  */  EFE00010 

15  1  0  DCL  FETCH  EN T RY ( BI T ( 2 ) , POINT ER , B I T ( 64 ) , Bl T ( 64 ) , BIT ( 1 ) ) ;  EFE00020 

.................  N J0005 1 0 

X INCLUOE  ESE ARCH; * .NJ000520 
/•  SEARCH  MODULE  */  BCA00700 

16  1  0  DCL  SEARCH  ENTRY ( BI T ( 2 ), BIT ( 64 ), 31 T (64 >, POINTE R .POINTER ) ;  BCA00710 

BCA00720 

..................  NJ000520 

NJ000530 

/*  IF  FIRST  CALL,  THEN  COPY  NL 1ST  INTO  NLTEMP  */  NJ000540 

17  1  0  IF  ALLCCATION(NLTEMP)  .0  NJ000550 

THEN  00;  NJ000560 


I 

KO 

cn 

O 

l 


18 

19 

20 
21 


22 

23 

24 

25 

26 


27 

28 

29 

30 


31 

32 

33 


34 

35 

36 

37 


38 

39 

40 

41 


42 

43 


1  T£VP  =  NLIST ; 

1  ALLOCATE  NLTEMP; 

1  N  LT  EM  P  =  T EMP  ; 

1  END; 

/»  FOR  EACH  ELEMENT  IN  THE  HIGHEST  ORCER  NLIST  •/ 

0  DO  1=1  TO  NLTEMP ( L) .NJM; 

1  IF  ALLOC  AT  I  ON (NLTEMP )=0 

TbEN  DO; 

2  ALLOCATE  NLTEMP; 

2  NLTEMP-NLIST ; 

2  END; 

/•  PLACE  ELEMENT  ON  TOP  OF  TUPLE  STACK  •/ 

1  ALLOCATE  TUPLE; 

1  NODES _ADDED=1 ; 

1  TUPLE . 0_ID= L; 

1  TUPLE  .  r;OOE  =  NLTEMP!  L)  .NODE(  I  )  ; 

/•  ^PREPARATION  FOR  JOIN  CHECKING  GET  FRESH  COPY  OF  NLTEMP  */ 

1  TLMP= NLTEMP ; 

1  ALLOCATE  NLTEMP; 

1  NLTEM  P  =  T  EMP ; 

/♦  FOR  EACH  ATTRIBUTE  OF  THE  LTH  NSE T  •/ 

1  DO  II  =  1  TO  NCAT  2 ( L ) . N  AT  TR ; 

/*  IF  ATTRIBUTE  THE  SAME  AS  A  PREVIOUS  ATTRIBUTE  */ 

2  IF  NCAT2( L) . SAME( I  I )*  =  '00000000' B 

THEN  00; 

/•  CALCULATE  WHICH  NSET  AND  DOMAIN  */ 

3  J_NSET  =  <  8Q0LINCAT2 ( L ) . SAME ( II) , *  1 1 T 10000 'B. 

'0001 ' B ) ) / 1 6 . ; 

3  J_DOMAIN=EOOL(NCAT2( L ) . SAME (II), '00001 1 1 1 'B. 

' 0001 ' B) ; 

/*  GET  INSTANCE  OF  ATTRIBUTE  IN  THE  LTH  NSET 
WHICH  IS  ASSOCIATED  WITH  THE  I  TH  ENTITY 

NODE  */ 

3  ID=NULL(); 

3  CALL  SELECTF( • 1 1 '8, I 0.NCAT2I L) . 8SETD0WN( II), 

NLTEMP(L) . NODE (  I  )  ,  1D2 ) ; 

3  TEMPI = IN FO.ND; 

3  FREE  I NF  0_ND; 

/«  GET  ASSOCIATED  INSTANCES  OF  ENTITY  NODES  IN 
THE  J_NSET  TH  WHICH  SHARE  THE  COMMON 
ATTRIBUTE  VALUE  »/ 

3  IO=NULL(); 

3  CALL  SELECTF( ' 1 1 ' B, 10,NCAT2(J  NSET).BSETUP 

(J_OOMAIN) .TEMPI , 102) ; 


N J000570 
N J000580 
N J000590 
NJ000600 
NJ000610 
NJ000620 
NJ000630 
NJ000640 
NJ000650 
NJ000680 
NJ000670 
N J000680 
N J000690 
N.J000700 
N J0007 1 0 
NJC00720 
NJ000730 
NJ000740 
NJ000750 
NJ000760 
N J000770 
N J000780 
NJU00790 
N J000800 
NJOOOBIO 
NJ000820 
NJG00830 
NJUC0840 
NJ000B50 
N J000860 
NJ000870 
NJOO0B8O 
N J000090 
NJ000900 
NJD0091 0 
NJ000920 
NJ000930 
NJ000940 
NJ000950 
N J000960 
NJ000970 
NJ000980 
NJ000990 
NJOOIOOO 
NJ00101 0 
NJ001020 
NJ001030 
NJ001040 
NJ001050 


44 

1 

3 

NUM_FND  =  ALLOC A  T 1 0N( I NFQ_ND) ; 

NJ001060 

NJ001070 

45 

1 

3 

IF  NUM  FND-  0 

NJ001080 

/*  IF  NONE  FOUND,  THIS  ENTITY  NODE  CAN  NOT  BE 

NJ001090 

JOINED,  HENCE  REMOVE  FROM  TUPLE  */ 

NjOOl 100 

THEN  DO; 

NJOOI 1 10 

46 

1 

4 

FREE  TUPLE; 

NJ001 120 

47 

1 

4 

NODES_ADDED=0: 

NJOOI 130 

48 

1 

4 

END: 

NJOOI 140 

49 

1 

3 

ELSE  DO; 

NJOOI 150 

/•  OTHERWISE  GET  INTERSECTION  OF  NODES 

NJOOI 160 

FOUNO  AND  NODES  IN  CURRENT  COPY  OF 

NJOOI 170 

NLTEMP  FOR  THAT  NSET .  PUT  UNION  IN 

NJOOI 180 

T_LIST  »/ 

NJOOI 190 

50 

1 

4 

t_list.num=o; 

NJOOI 200 

51 

1 

4 

DO  J=1  TO  NUM_FND; 

NJ001210 

52 

1 

5 

FND  = ' O' B; 

NJ001220 

53 

1 

5 

00  LL=1  TO  NLTEMP ( J_NSET ) . NUM  WHILE! *FNO) ; 

NJ001230 

54 

1 

6 

IF  INFO_NO=NLTEMP( J  NSET ). NODE ( LL ) 

NJ001240 

THEN  FND=  *  1  *B; 

NJ001250 

55 

1 

6 

END; 

NJ001260 

56 

1 

5 

IF  FND 

NJ001270 

THEN  DO; 

NJOOI 280 

57 

1 

6 

T  LIST .  NUM  =  T  LIST.NUM+1 S 

NJOOI 290 

58 

1 

6 

T_ L I ST . NODE ( T  L I ST . NUM) « INFO  ND; 

NJOOI 300 

59 

1 

6 

END; 

NJ001310 

60 

1 

c 

FREE  INFO_ND; 

NJOOI 320 

61 

1 

c 

END; 

NJOOI 330 

/•  IF  INTERSECTION  IS  EMPTY,  NO  JOIN  •/ 

NJ001340 

62 

1 

4 

IF  T_L I ST . NUM  =  0 

NJ001350 

,  THEN  DO; 

NJ001360 

63 

1 

5 

FREE  TUPLE; 

NJOOI 370 

34 

1 

5 

NODES_ADDED*0; 

NJ001380 

65 

1 

5 

END; 

NJOOI 390 

66 

1 

4 

ELSE  NLTEMP(j_NSET)»T_LIST; 

NJOOI 400 

67 

1 

4 

END; 

NJ001410 

68 

1 

3 

END; 

NJ001420 

/*  IF  JOIN  ATTEMPT  UNSUCESSFUl  FOR  THIS  NODE 

NJ001430 

GO  ON  TO  NEXT  NODE  */ 

NJOO 1 440 

69 

1 

2 

IF  NODES _ ADDED  =  0 

NJOOI 450 

THEN  LEAVE; 

NJOO 1 460 

70 

1 

2 

ENO; 

NJOO 1 470 

/*  OTHERWISE  PERFORM  JOIN  LOGIC  ON  1-1 TH  NSET  •/ 

NJOO 1 480 

71 

1 

1 

IF  NODES_ADDE D" =0 

NJOO 1 490 

THEN  DO; 

NJOOI 500 

/*  IF  MORE  THAN  1  NSET  REMAINS  CALL  NJOI N1 */NJOO 1 51 0 

72 

1 

2 

IF  l.>2 

NJOO 1520 

THEN  ADDED*  NJ0IN1 ( L— 1 ) ; 

NJ001530 
NJOOI 540 
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73  1  2 


3 

4 
4 
4 
4 
3 
3 


2 

3 

3 

3 

2 

2 


1 

1 

0 

0 

0 


74 

75 

76 

77 

78 

79 

80 


81  t 

32  1 

B3  1 


95  1 

86  1 


87  1 

88  1 

89  1 

<10  1 
91  1 


ELSE  DO: 

/*  OTHERWISE  NLTEMP(I)  WILL  CONTAIN 
ONLY  THOSE  ENTITY  NODES  FOR  NSET  1 
THAT  SATISFY  THE  JOIN  LOGIC,  HENCE 
THEY  ARE  PLACE 0  ON  THE  TUPLE  STACK*/ 

DO  K=1  TO  NLTEMP ( 1 ) . KUM; 

ALLOCATE  TUPLE: 

tuple. d_id=i : 

tuple. nqje-nltemp ( i ) .node(k) : 

END; 

added=nltemp( i ) .num; 


END; 

/*  IF  NONE  ADDED  THEN  JOIN  WAS  NOT 

SATSIFIED  NODE  SHOULD  BE  REMOVED  FROM 
TUPLE  STACK  */ 

IF  ADDED=0 
THEN  DO; 

FREE  TUPLE; 

NOD£S_ADDED=0; 

END; 

/*  UPOATE  NOD£_ADDED  */ 

ELSE  NODE S_ ADDED* NODES  ADDED+ADDED; 

END; 

/*  FREE  CURRENT  ALLOCATION  OF  NLTEMP  WHICH  WAS 
USED  FOR  THIS  INSTANCE  OF  THE  ENTITY  NODE  */ 
FREE  NLTEMP; 


END; 

FREE  NLTEMP; 
RETURN (NOOES_AODED ) ; 
END  N JOINT ; 


NJ001550 
NJ001560 
NJ001570 
NJ001580 
NJ001590 
NJ001600 
N  )00l6l0 
N JOO 1 620 
N JOO 1630 
N jOO 1 640 
NJO0I650 
N JOO 1 660 
NjOOl 670 
NJ001680 
N JOO 1 690 
N JOQ 1700 
N JDO 1 7 1 0 
NJ001720 
NJOO 1730 
NjOO 1 740 
N JOO 1 750 
NjOOl 760 
NjOO 1 770 
NJOO 1780 
N  JOOI 790 
NjOO 1  BOO 
NJOO 1810 
N jCO 1820 
NjOOl 830 
NJOO 1 840 
NjOOl 850 
NJOO 1 860 
NJ001870 
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I 

M 

CO 


2 


%  INCLUDE  TABN ;*•***  .•*•».•»***•»•►****•»••**••«»*.••«•****•*»•*»•»•*••♦ TABOOO 1 0 
/»•****•***.*.•*«***•*•.»*»*****•*•*•***»»**»»•*•*»«•*»•»»••*••••*•••  FOROOO 1 0 

•  •  FOR00020 

•  MODULE  DESCRIPTION  *  F0R00030 

**«***,**»•*«*«*»**»*****«•»♦»*»»♦«****♦**»»•#*«**»»»*»*******••**•*/  FOR00040 

0  TABN:  PROCEDJRE;  FC.R00050 

/**<**«**>•*»**>  *  *  *  •  ***********  ***************************************  FOR00060 

•  **•«  PURPOSE:  FOR00070 

*****  THIS  MODULE  TAKES  THE  STACK  OF  ENTITY  NODES  CREATED  BY  FOROOOSO 

*****  FETCHT  AND  CREATES  A  TABLE  STRUCTURE  WHICH  REFLECTS  FOR00C90 

•  ••♦*  THE  relational  MOOEL.  FOR  EXAMPLE,  THE  STACK  MAY  LOOK  FOROOIOO 

*»♦*.  AS  FOLLOWS:  121212123,  WHERE  THE  NUMBERS  CORRESPOND  TO  THEFOROOIIO 

»»•*•  NSET  TO  WHICH  THE  ROUES  BELONG.  THAT  STACK  IS  IMPLICITLY  FOR00120 

•  *•»*  SPECIFYING  THE  FOLLOWING  RELATIONAL  STRUCTURE:  F0R00130 

*****  123  F0R00140 

*****  123  FOR00150 

123  FQROO 1 60 

*****  123  FOR00170 

*****  THIS  MOOULE  IS  RESPONSIBLE  FOR  PERFORMING  THAT  CONVERS ION . FOROO 1 80 

FOROO 1 90 

***....***«»«..*...*.•.*.***«*«*.»*.**..••**»***»*.**•»•»»**••*•»••*.  FOR00200 

•*♦♦«  METHOD:  FOR00210 

*****  SEE  COMMENTS  IN  PROGRAM  FOR00220 

«.*♦.  FOR00230 

************** •*****«*****•***********•***•******«*************#»*•»»  F0R00240 

*****  input  PARAMETERS:  FOR00250 

•  *♦*.  U!  £S  The  TUPLE  STACK  CREATED  BY  FETCHT:  FOR00260 

•«•••  1  TUrLE  CTL  EXT,  FOR00270 

*****  2  0.10  FIXED  B I N ( 1 5 ) ,  FOR00280 

•♦***  2  NODE  BITI32);  FOR00290 

*****  FOR00300 

FOROOO 10 

*****  OUTPUT  PARAMETERS:  F0R00320 

*****  RETURNS  THE  FOLLOWING  EXTERNAL  STRUCTURE:  FOR00330 

•  •♦*♦  1  T AB <  5 )  STA1IC  EXTERNAL,  FOR00340 

*****  2  ROW  NUM  FIXED  bIN(1S),  FOR00350 

*****  2  R0W(’50)  B 1 T  ( 32 )  ;  FOR00360 

•  «•»•  F  QR0037  0 

I*..*..*..**..**..***..**********.*...***.*.*.*****.***.*************  FOR00380 

**••«  CALLS  PROCEDURES:  FCR00390 

*.»•«  NONE  FOR00400 

**•«**,*•.*••,*•••.*•*****«*••****•**»»••***••*****»*•*••*•***•••***/  F0R004 1 0 

TAB00010 

/*  TAB  TO  HOLD  ENTITY  NODE  TAGS  */  TAD00020 

0  OCL  1  T AB( 5  )  STATIC  EXTERNAL,  TAB00030 

2  ROW_ NUM  FIXED  BTN(IS)  INIT  ((5)  0),  TAB00040 


■264- 


i 


3 


4 

5 

6 
7 
B 
9 


10 


1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 


1 


1 


2  ROW ( 50)  8IT(32) , 

/*  STACK  CONTAINING  ENTITY  NODE  TAGS  */ 
1  TUPLE  CTL  EXT, 

2  D  ID  FIXED  BIN(15), 

2  NODE  BI T( 32 ) ; 


0  00  WH I LE(  AL LOCAT ION( TUPLE ) *=0  )  ; 

/*  ADD  ENTITY  NODE  TAGS  FOR  NSET  1  TO  COL  1  •/ 

1  DO  WH  I  LE  (  AL  LOC  A  T  IQN(TUPLE)~*Oi&TUPLE.D  IO«l){ 

2  ROW.MUfAl  1  )*ROW_NUM(  1  )  +  1 ; 

2  TABU ) .KOW(ROW_NUM( 1 ))= TUPLE . NODE ; 

2  FREE  TUPLE; 

2  END; 

1  LAST_C  0L= 1 ; 


/*  FILL  ROWS  FOR  REMAINING  NSETS  •/ 

1  DO  WH I LE ( AL  LOCAT ION(TUPLE)"=OSTUPLE.D  ID*»1)l 

/*  FILL  SO  NUMBER  OF  ENTRIES  SAME  AS  PREVIOUS 
COLUMN  */ 

2  DO  K= I  TO  (ROW_NUM( L AST_COL ) -ROW_NUM( TUPLE. D_ID) ) 5 

3  ROW_NUM( TUPLE . D_ID) - ROW_NUM( TUPLE ,D_ID)+1  ; 

3  TAB(TUPLE. 0_I0 ) . ROW ( ROW  NUM(TUPLE -D_ID) )» 

TUPLE. NODE; 

3  END; 

2  L  AST_CCL*  TUPL  E . 0  10; 

/*  POP  TOP  OF  TUPLE  STACK  */ 

2  FREE  TUPLE; 

2  EMI  ; 

1  END; 

0  RETURN; 

0  END  TABN; 


TAB00050 
T  AB00060 
TA800070 
T  AB00080 
TA800090 
TABO0 1 00 
TAB001 10 
TAB00120 
TABO0 1 30 
TAB00140 
TABO0 1 50 
TABOO  160 
TAB00170 
TABOOIBO 
TAB00190 
TAB00200 
TAB00210 
TAB00220 
TAB00230 
T  AB00240 
TAB00250 
TAB00260 
T  ABC0270 
TAB00280 
TAB00290 
TAB00300 
TAB0031 0 
TAB00320 
T  AB00330 
TAB00340 
TAB00350 
T  A800360 
TAB00370 
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X INCLUDE  NREC ON :**•*•♦•*«•****•*•******•**•****•***•*•* •**•****•••• •♦•♦NREOOOI 0 
/*.»•....... •...•**.**•*..**»**•*•.*****••*.*,•****•*•.•••**•• *******  FOROOO 1 0 

•  •  FOR00020 

•  MODULE  DESCRIPTION  *  FOR00030 

*4,... *.*..*..**•«.«•»•.,*.**** *•,•«•••••*••**«•*/  F0R00040 

0  N  RECON :  PROCEDUFE  FOR00050 

(MODE.  /•  BIT{ 1 )  •  /  FOR00060 

ARG  NOOE.  /*  I.  FQR00070 

2  FIXED  BIN( 15) .  F0R00080 

2  (50)  B I T ( 32 )  ♦  /  FOR00090 

TEMP  /*  1,  FOROOI 00 

2  FIXED  BIN(I5),  FOROOIIO 

2  (50)  B I T ( 32 )  ♦  /  )i  FOR00120 

FOROO  1  30 

PURPOSE:  FOROO 1 40 

•**«•  THIS  IS  A  SUPPORT  MODULE  FOR  THE  FETCHT  MODULE,  AND  IS  F0R00150 

*****  RESPONSIBLE  FOR  DETERMINING  THE  INTERSECTION  OF  THE  NODES  FOR00160 

•*•••  CONTAINED  IN  ARG_NOOE  AND  TEMP,  AND  FOR  RETURNING  THE  FOR00I70 

•««•*  INTERSECTION  IN  ARG_NOOE .  THIS  IS  USED  EXCLUSIVELY  FOR  F0R00I80 

«*••♦  IMPLEMENTING  RESTRICTIONS.  FORC0190 

*****  FOR00200 

*..»...*«..**4..«*. ............................... ,4,,, ,,,*,*,.....**  FOR0021 0 

*****  METHOD:  FOR00220 

*****  BASICALLY  THE  MODULE  COMPARES  THE  CONTENTS  OF  ARG_NODE  F0R00230 

•  •••*  AND  TEMP.  AND  MAINTAINS  A  TEMPORARY  LIST  ALL  THE  NODES  FOR00240 

•  ••*•  WHICH  WERE  IN  BOTH  ARGNODE  AND  TEMP.  AT  THE  END  OF  THE  FOR00250 

•*♦**  ROUTINE.  ARG.NOOE  IS  UPDATED  SO  THAT  IT  ONLY  CONTAINS  FOR00260 

<».m  THL  NOOES  That  WERL  IN  BOTH.  The  ONLY  EXCEPTION  to  THIS  FOR00270 

**•  *  IS  IF  MODE* 1 0 1 B ,  WHICH  INDICATES  THAT  THIS  IS  THE  FIRST  FOR00280 

*****  RESTRICTION  ON  THE  NSET,  AND  SO  TEMP  IS  TO  BE  COPIED  FOR00290 

*****  DIRECTLY  INTO  ARG_NODE,  FOR00300 

*****  F0R003I0 

4.*.. **»... 4*..*. 4..... 4,,.. ,*.,,,,,,.4.,*  FOR00320 

INPUT  PARAMETERS:  FOR00330 

MODE  -  FLAG  TO  INDICATE  IF  THIS  IS  THE  FIRST  RESTRICTION.  FOR00340 

•  1 0 ‘ B  -  YES  FOR00350 

•»4«*  • t  *  B  -  NO  FOH00350 

*****  ARG_NOOE  ANO  TEMP  ARE  EQUIVALENT  TO  ELEMENTS  OF  NLIST.  FOR00370 

*****  FOR00380 

4**4 4. **.444. 4 4 444. 4. ,44. 44*4.4*. *4*. *4*. 4. 44.,. ,4.4. ..*•*••,»*  FOR00390 

*»•.*  OUTPUT  PARAMETERS:  FOROOAOO 

*»•»•  ARG.NODE  (SEE  ABOVE  )  FOR00410 

•  .4 4. 4 4 »*•••• ...4.4  4*4. 4 4. 44**4*. *4*. 44*4. 4  *  .  *  *  *  ,  *  .  .  *  .  *  .  *  4  *  4  4  *  *  *  *  *  .  •  *  FOROOA20 

*»•••  CALLS  PROCEDURES:  FQR00430 

*****  NONE  F0R00440 

******* •**♦••. «■>  ♦♦ *.*.».*•****••*•*..**.*.»*»*,*»*••*. * •••*•.•, .****/  FQR00450 


N>  10 
O'  1 ' 
O  12 
•  13 


DCL  1  ARG_NODE, 

2  NUM  FIXED  B IN( 1 5) , 

2  NODES ( * )  BI T (32) , 

1  WORK  NOOE ( 2 )  , 

2  NUM  FIXED  BIN(15)  INI H  (2  >  0). 

2  NODES  I  50 )  B I T( 32 )  ; 

DCL  1  TEMP, 

2  NUM  FIXED  BIN(IS). 

2  NODE  S ( 50 )  BI T ( 32 ) J 

DCL  MODE  BI T ( 1  ) ,  FND  BIT(1); 

WORK_NOOE( 1 )=TEMP; 

IF  ARG_NOOE .NUM=0  4  MODE=’0‘B 
THEN  00; 

00  J  =1  TO  WORK  N00E(1).NUM; 

ARG_NOOE . NODES ( J) «WORK_NODE{ 1 ) . NODES( J ) ; 

END; 

ARG  NODE -NUM« WORK_NOOE ( 1 ) .NUM; 

RETURN; 

END; 

ELSE  DO; 

DO  J«1  TO  ARG_NOOE .NUM; 

F  ND= 1 0 1 B; 

DO  UJ  =1  TO  WORK_NODE( 1 ) . NUM  WHILE('FNO); 

IF  ARG_NODE(J)  .NODES*WORK  NODE( 1  )  .NOOES( JJ) 
THEN  FND= 1 1 1 B; 

ENO; 

I  F  FND 

THEN  DO; 

W0RK_N00E(2) . NUM«WORK.NODE ( 2) .NUM+1 ; 
W0RK_NQ0E(2) . NODES ( WORK.NODE (2 ) .NUM)» 
ARG_NODE. NODES* J); 

END; 

ENO; 

ARG_NO  OE .  NUM  =  WORK  ..NODE  (  2  )  .  NUM ; 

DO  I*  1  TO  ARG.NODE.NUM; 

A  RG.NODE ( I ) • NOOES=WORK_NO  DE(2 ) . NODES( I ) I 

END; 

END; 

RETURN; 

ENO  NRECON; 


NRE0001 0 
NRE00020 
NRE00030 
NRE00040 
NRE00050 
NRE00060 
NRE00070 
NRE00080 
NRE00090 
NRE00100 
NRE001 1 0 
NHEOO 1 20 
NRE00130 
NRE00140 
NRE00150 
NRE00160 
NREOOl 70 
NRE00180 
NREOO 1 90 
NRE00200 
NREC0210 
NRE00220 
NRE00230 
NRCC0240 
NRE00250 
NRE00260 
NRE00270 
NRE002B0 
NR  E  00290 
NRE00300 
NRE003 1 0 
NRC00320 
NRE00330 
NRE00340 
NRE00350 
NRE00360 
NRE00370 
NRE003B0 
NRE00390 
NRE00400 
NRE00410 
NRf  00420 
NRE00430 
NRE00440 
NRE00450 
NRE00460 
NRE00470 


%  INCLUDE  BUI L DC ;♦*•**•***♦******♦•***♦♦**♦♦ 

/*+•*#«»+*****  «  *  *  «  *  *********************+♦* 
* 

•  MODULE  DESCRIPTION 


BUILOC:  PROCEDURE 


(NAMEt,  /*  3 1 T ( 64 )  */ 

NCAT  /«  1 , 

2  B I T ( 64  )  , 

2  61 T ( 8 )  , 

2  (20). 

3  B 1 T ( 64 ) 
3  B  I  T  ( S )  . 
3  BIT  LB)  , 
3  B I T ( 64 ) 
3  BIT (86) 


PURPOSE: 

THIS  MODULE  IS  RESPONSIBLE  FOR 
TOR  NSET  NAME1,  AND  FOR  RETURN 
NCAT  STRUCTURE. 


******** ******************************************************** 


METHOD: 

PLEASE  SEE  COMMENTS  IN  THE  CO 
ST TAIGHFORWARD  EXCEPT  FOR  THE 
TIE  ATTR  DF.SCRIPTION  FOR  AN  AT 
STRING.  IT  IS  NECESSARY  TO  USE 
THE  CONTENTS  OF  THE  BIT  STRING 
THE  PURPOSE  OF  ATTR  TEMP. 


+  ***#♦*•  +  **  +  **  ******♦**♦***  +  *♦***♦**»♦*•**»**»****•*****#******* 


INPUT  PARAMETERS: 

NAME  1  -  NAME  OF  A  PREVIOUSLY 


OUTPUT  PARAMETERS: 

NCAT  -  SEE  OTHER  DESCRIPTIONS 


CALLS  PROCEDURES: 

SEl.ECTF,  SEARCH 


X  INCLUDE  NCAT ;.••♦****•«.♦***♦•*♦*< 
DCL  1  NCAT, 

2  NNAME  BIT (64 ) , 

2  NATTR  Bl T( 8  )  , 


/♦  NSET 


*•♦**  **»*BU  1 00010 

************  ******  ********  FOROOOI 0 

*  FOR00020 

*  FQR00030 

**,*,*»,**.**.*******»»**/  FOR 00040 

FOROOOSO 

FQR0C060 

FDR00070 

FOR00080 

FOR00090 

F0R00100 

,  F0R00110 

FOROO 1 20 
FOR00130 

,  FOROO 140 

*/  );  FOROO 1 50 

FOR00160 
FOROO 1 70 

FETCHING  THE  NSET  CAT  ENTRYFOROO 1 80 

ING  THE  INFORMATION  IN  THE  FOR00190 

FOR00200 
F0R002 I  0 

**************************  FOR00220 

F0R00230 

DE.  ITS  FAIRLY  F0R00240 

USE  OF  ATTR  TEMP.  SINCE  FOR002S0 

TRIBUTE  IS  STORED  AS  A  BIT  F0R00260 
A  STRING  OVERLAY  TO  MAP  FORC0270 
TO  NCAT. ATTR,  AND  THAT  IS  FOR002B0 

FOR00290 

..,*.**,**,**..,****.**.**  FOR00300 

F0RC03I0 

DEFINED  NSET.  F0R00320 

FOR00330 

FOR00340 

OF  NCAT.  F 0R00350 

**************************  F0R00360 

FOR00370 

FOR00380 

*»•••««•»*•»*•»••*»*••••*/  F0R00390 

BUIC0010 
BU 1 00020 

****,*************,***,, ••••BUI  00030 
CATALOGUE  ENTRY  •/  DCL00010 

/*  NAME  OF  NSET  •*/  DCL00020 


DE.  ITS  FAIRLY 
USE  OF  ATTR  TEMP.  SINCE 
TRIBUTE  IS  STORED  AS  A  BIT 
A  STRING  OVERLAY  TO  MAP 
TO  NCAT. ATTR,  AND  THAT  IS 


DEFINED  NSET . 


OF  NCAT. 


CATALOGUE  ENTRY  •/  DCL00010 

/*  NAME  OF  NSET  **/  DCL00020 

/•  NUMBER  OF  ATTRIBUTES  »/OCL00030 


“892 


2  ATTR( 20 ) ,  /*  UP  TO  2°  ATTRIBUTES  */  00100040 

3  ANAME  BIT(64),  /*  ATTRIBUTE  NAME  «/  DCL00050 

(3  K_TYPE,  /«  UNIQUE  KEY  OR  NOT  */  DCL00060 

3  BRED  3 1 T ( 8 ) ,  /*  TYPE  OF  8SET  ♦/  DCL00070 

(3  BSETUP,  /*  BSET ( ATTR->N_NODE )  */DCL00080 

3  BSETDOWN )  BIT(64);  /*  BSET{ N_NODE-> ATTR )  */DCL00090 

**•«.*«**»*••*  BU 1 00030 

BU 1 00040 

/*  OVBLA 10  ON  I NFO_ND  TO  EXTRACT  ATTRIBUTE  DESCRIPTION  •/  BUI00050 

DCL  1  A  TR_  TEMP  0EF1NED  AT  TR_STR ,  BUI0C060 

2  ANAME  BI T ( 64 ) ,  BU100070 

(2  K  TYPE,  BUI00080 

2  BREL)  B I  T  (  8  )  ,  BIJI00090 

(2  BSETUP.  BU I  00 1 00 

2  BSETDOWN)  6IT(64),  BUIOOMO 

attr  str  Bir(2oa);  BUI00120 

BU I  00 1  30 

X  INCLUDE  IDS1; .♦.»*«.*•».«»»•♦*♦•♦♦*♦♦*******♦***********•*♦ **•*•♦• ****BU 1001 40 
/*  POINTER  STACK  RETURNED  BY  SEARCH  •/  BCA00420 

DCL  1 DSl  PTR  EXTERNAL  CONTROLLED;  BCA00430 

•  *••*•»«*•**•*  BU I  00 1 40 

XINCLUOE  INFO UNO; ••«*»••*•♦»**••»****•*♦****•****•*•••*  *****•*•**•• ***»BU I  00 1 50 
/*  OATA  STACK  RETURNED  BY  FETCH  */  BCA00450 

DCL  INFO  MO  B I  T ( 320 )  EXTERNAL  CONTROLLED:  BCA00460 

BU 100150 

/•  MISC  OEClARATIONS  «/  BU 1 00 1 60 

DCL  (  10XX.I0.I01  JPOINTER  IN  I T (NULL (  )  )  ,  BUI00170 

NAME1  BIT (64 ) .  BUI  00180 

DCL  IDN.DE  BIT ( 1 60 ) ;  BU100190 

DCL  (N  NAME,  NSETCAT.N  ATTR, NSETB1 .NSETB2)  BIT(64)  STATIC  BUI00200 

EXTERNAL.  L  Fl'xED  BIN(8);  BUI00210 

BU 1 00220 

/*  PROCEDURES  CALLED  */  BU10C230 

X INCLUDE  ESELECF ;  ..«.♦...».*********«*•*♦♦*•*•***•***♦•************* **»BU 1 00240 
/*  BSET  RETRIEVAL  MODULE  */  DEC00050 

DCL  5ELECTF  ENT l< Y(BIT(2).P0 INTER, BIT( 64 ),B1T(320), POINTER) 5  DEC00060 

BU 1 00240 

XINCLUOE  ESEARCH;** ..,«**♦«.**»...»*•**»♦*»♦*.**,♦»♦*♦***•**** ***.*****BUl 00250 


/*  OVRLAIO  ON  I NFO_ND  TO  EXTRACT  ATTRIBUTE  DESCRIPTION  •/ 
DCL  1  A  TR_  TEMP  0EF1NED  AT  TR_STR , 

2  ANAME  BI T ( 64 )  , 

(2  K_T  YPE , 

2  BREL  )  B I T ( 8 ) , 

(2  BSETUP. 

2  BSETDOWN)  8IT(64), 

ATTR_STR  BI T ( 200 ) I 

X  INCLUDE  I DSl ;•*.»* •.»*»*♦*»****♦*♦«♦»•**♦*•******♦*************•***» 
/*  POINTER  STACK  RETURNED  BY  SEARCH  •/ 

DCL  1 DSl  PTR  EXTERNAL  CONTROLLED; 


XINCLUOE  INFOUND;** ♦*»•»«••»**••»♦***•»♦****•****•*••*******•*•**** 

/*  DATA  STACK  RETURNED  BY  FETCH  */ 

DCL  INFO.ND  BIT(320)  EXTERNAL  CONTROLLED: 

/•  MISC  DECLARATIONS  «/ 

DCL  (  10XX, ID. IU1  JPOINTER  IN  I T (NULL (  )  )  , 

NAME 1  BIT (64 ) ; 

DCL  IDN.DE  BIT (160); 

DCL  (N  NAME,  NSETCAT.N  ATTR, NSETB1 .NSETB2)  BIT(64)  STATIC 
EXTERNAL,  L  FIXED  BIN(8) ; 


>*  SEARCH  MODULE  */ 

DCL  SEARCH  ENTR Y ( BI T ( 2 ) , BI T ( 64 ) , B I T ( 64 ) , POINTE R , POINTER) ; 


/•  ESTABLISH  INSTANCE  OF  THE  NSET  NAME  IN  ATTRIBUTE  N_NAME  */ 
CALL  SEARCH (  '01  * B ,N_NAME .NAME  1 , IDXX , ID); 

ID1 • I DSl ; 

ID*NU L t.(  ); 

FREE  1 O*- 1 1 


BCA00700 
BCA00710 
BCA00720 
BU1002SO 
BUI  00260 
BU 1 00270 
BUI002G0 
BU 1 00290 
BU 100300 
8UI00310 
BUI00320 


15 

16 
IT 


18 

19 


20 

21 

22 

23 

24 

25 

26 

27 

28 


1  0 
1  0 
1  0 


/•  GET  THE  ASSOCIATED  ENTITY  NOOE  »/ 

CALL  SEL£CTF< • 1 1 ' B. ID1 .NSETB1 , 'O'B, IDXX) ; 

IDNODE= INFO_ND; 

FREE  INFO.ND; 

/»  GET  THE  ASSOCIATED  INSTANCES  OF  ITS  ATTRIBUTE 
CALL  SELECTF< • 11 1 B. ID.NSETB2, IDNODE ,  ID1); 

L=ALI OCATION< I NFO_NO ) ; 

/*  BUI LD  NCAT  •/ 

NCAT . NATTR=  BIN(L); 

NCAT.  NNAME*  NAME  1  ; 

DO  J*1  TO  NCAT. NAT  TR  ; 

/»  MAP  ATTR_STR  ONTO  INFO_ND  */ 

AT  TR_S  TR= INFQ_ND ; 

NC A  T ( J  )  . ATTR  =  ATTR_T  EMP ; 

FREE  I NFO_ND; 

END; 

RETURN; 


1  0  END  BUILDC; 


BUI  00330 
BUI00340 
BUI00350 
BU 1 00360 
BU 100370 
BU 1 00360 
DESCRIPTIONS*/BUI00390 
BU I  00400 
BU I  004 1 0 
BU 1 00420 
BU 100430 
BUI  00440 
BU I  00450 
BU 1 00460 
BU 1 00470 
BU 1 00480 
BU I  00490 
BU 100500 
BUI  005 10 
BUI  00520 


I 

K) 

O' 

V0 

I 
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X  INCLUDE  NINI T  ;  < 

. . 


MODULE 


DESCRIPTION 


NINIT:  PROCEDURE; 

. . * . * . . . 

»***»  PURPOSE: 

.....  THIS  MODULE  IS  RESPONSIBLE  FOR  INITIALIZING  THE  NSET_CAT . 

.....  THIS  REQUIRES  IT  TO  FIRST  ISSUE  THE  APPROPRIATE  CALLS  TO  TO 

.....  INTERNAL  LEVEL  TO  DEFINE  THE  PSETS  AND  BSETS  BY  WHICH 

.....  THE  NSET  _CAT  IS  IMPLEMENTED,  AND  THEN  TO  INSERT  AN  NSET  CAT 

.....  ENTRY  FOR  THE  NSET_CAT  NSET  INTO  ITSELF. 


.....  method: 

.....  SEE  COMMENTS  IN  CODE 


.....  INPUT  PARAMETERS: 

.....  NONE 

*»»*»»**»***♦»*»*♦**»*♦»»»»»*»*»***»*»***«*»***»*».»»»»*•»****» 
.....  OUTPUT  PARAMETERS: 

.....  NONE,  THOUGH  IT  DOES  CREATE  VIA  CALLS  TO  THE  INTERNAL 

.....  LEVEL  the  PSETS  and  BSETS  NECESSARY  TO  IMPLEMENT  THE 

.....  NSET  _CAT  NSET 

*.*.♦  CALLS  RCCEDURES: 

.....  DEF INEP.CREATEP.DEFINEB.CREATEB. 


DCL  <N_NA.7!E,  NS  E  TCA  T  ,  N_AT  TR  ,  NSETB 1  ,  NSET  B2 )  BIT(64) 

STATIC  EXTERNAL.  UNIQUE  BIT(8)  STATIC  EXT. 

(PTR.PTR2)  POINTER. 

1  ATT  R  DEFINED  ATTR.STR, 

2  ANAME  B l T ( 64  )  , 

2  K  TYPE  B I T  <  8 ) , 

2  BREL  B I T ( 8 )  , 

2  BSE  TUP  BIT (64), 

2  BSE T DOWN  BIT(64)  , 

ATTR_ STR  B I T ( 208 ) ,  TEMP  BIT(64); 

/.  PROCEDURES  CALLED  »/ 

X  INCLUDE  EDEF I  UP ;*•*».*»,*.«...*••**•» ............. 

/.  DEFINE  PSET  MODULE  */ 

DCL  DEFINE?  ENTRY(BIT(64) ,QIT(8),BIT(B).BIT(8) , BIT ( 8 ) , 
6 1 T ( 8 ) , 31 T ( 8 ) .POINTER)  ; 


■NIN00010 
FOROOOI 0 
FOR00020 
FOR00030 
FOR0004Q 
FQR0C050 
FQR00060 
FOR00070 
FOROOOBO 
FOR00090 
FOROOIOO 
F0R001 10 
F0R00120 
FOROOI 30 
FOR00140 
FOROOI SO 
FOROOI CO 
FOROOI 70 
FOROOIBO 
FOR0O19O 
FOR00200 
FOR00210 
FOR00220 
FOR00230 
FQR00240 
FOR00250 
FOR00260 
FOR00270 
FOR00280 
NIN00010 
NIN00020 
N I N00030 
N I N00040 
NIN00050 
NIN00060 
NIN00070 
NIN00080 
NIN00090 
NINOOIOO 
NINOOI 10 
NIN00120 
>N I NOO 130 
BCA00590 
BCA00600 
BCA0061 0 
NINOOI 30 


i 


271- 


X  INCLUDE  EDEFINB ;..**.•*.*•♦•**•**♦***♦****.*«***♦♦.**• •*•*••**•« 
/«  DEFINE  BSET  MODULE  */ 

4  1  0  DCL  DEFINES  ENTRY ( B I T ( 64 ) , BIT ( 64 ) , B I T (64) , BI T (8 ) , Bt T( 1 ) ) ; 


X  INCLUDE  ECRE  ATB ; » • .***..♦*•****.»***•**•*».***♦»♦.♦•«♦••*«•♦••**•*»< 

/♦  CREATE  BSET  MODULE  «/ 

5  1  0  DCL  CRLATEO  ENTR Y ( B 1 T ( 64 ) . PO I N T ER , B I T ( 320 ) , BI T ( 3 20 ) , POINTER ) ; 


XINCLUDE  ECR£ATP;*«  ♦**«•»»•*•*»**♦•***»**»**•***»*«**< 
/•  CREATE  PSFT  MODULE  */ 

6  1  0  DCL  C  ESTEP  ENTRY ( BI T ( 64 ) ,BIT(320) .POINTER); 


START  OF  PROCEDURE  -  INITIALIZE  VARIABLES  */ 

UNIQUE  ^ ' 000  00001  '8; 

N_NAME=UNSPEC(  'NSF.TNAME  '  )  ; 

NSE  TC  A  T  =-UNS  PFC(  'NSETCAT  '}; 

N_ATTi)  =  UNSPEC(  'N5ETATTR  ‘  ) ; 

NSE  TB 1 iUNS  P  EC(  ' NSE  T  B 1  '); 

NSETB2-UNSP  EC( ‘NSETB2  ‘ ) ; 

/*  DEFINE  THE  NSETNAME  PSET  FOR  THE  NSETCAT  */ 

CALL  DEFINE  P(N_NAME  ,  '00  000001  '  B.  '00  000001  '  B,  '00100000'  B, 
'0000000000101 100' B.'O'B.'O'B.PTR); 

/*  DEFINE  THE  ENTITY  NODE  PSET  FOR  THE  NSET  CAT  */ 

CALL  DEFINE?! NSET CAT, '00000001 'B, '00000001 'B, ' 001 00000 'B, 
■0000000000100000 'B.'O'B.'O'B.PTR); 

/.  DEF  NE  THE  ATTRIBUTE  DESCRIPTION  PSET  FOR  THE  N5ET_CAT  */ 
CALL  DlFINEP(N_ATTR,  '00  00000  I  ' 0,  '00 00000  I  ' B, '00 100000TB, 
'0000000001 101000' B.'O'B.'O'B.PTR); 

/•  DEFINE  THE  NSE TNAME -NSETCAT  ENTITY  NODE  BSET  •/ 

CALL  DEFINE  B( NSE T0 1 . N_N AME , NSE TC AT ,  ' 00000001 ‘B.  'O'B) ; 

/•  NOW  DEFINE  ITS  RECIPROCAL  •/ 

TEMPs NSE TB1  ; 

CALL  DEFINE B( TEMP, NSETCAT, N_NAME, '00000001 'B, ' 1 ' B ) ; 

/•  DEFINE  THE  ENTITY  NODE  -  ATTR  DESCRIPTION  BSET  */ 

CALL  DEFINEBINSETB2, NSETCAT, N_ATTR, '00000010'B. 'O'B): 

/*  NOW  INSERT  THE  NSET_C AT  CAT  ENTRY  FOR  ITSELF  INTO  THE 
NSET  CAT  ,  FIRST  CREATE  AN  INSTANCE  OF  THE  NSET  NAME  */ 
CALL  CREATE  P(N_NAME .NSE  TCAT.PTR); 

/*  CREATE  AN  ASSOCIATED  INSTANCE  OF  THE  ENTITY  NODE  •/ 

CALL  CREATEBINSETB1 ,PTR, 'O'B, ' 0‘B,PTR2); 


7  1  0 

8  1  0 

9  1  0 

10  10 

11  10 

12  10 


13  10 


14  1  0 


15  1  0 


16  1  0 


17  10 

18  1  0 

19  10 


20  1  0 


21  1  0 


•NIN00140 
DEC00020 
DEC00030 
NIN00140 
•N l NOO 1 50 
DEC00050 
DEC00060 
N I NOO 1 50 
•NIN00160 
BCA00G30 
BCA00640 
N I NOO 1  CO 
N1N001 70 
N I NOO 1  BO 
N I NOO 1 90 
NIN00200 
NIN0C21 0 
N I N00220 
N I N00230 
NIN00240 
NIN00250 
NIN002C0 
NIN00270 
NIN00280 
NIN00290 
NIN003 00 
NIN00310 
NIN00320 
N I N00330 
NIN00340 
NIN00350 
NIN00360 
NIN00370 
N I N003B0 
N I N00390 
N I N00400 
NIN00410 
NIN00420 
NIN00430 
N I N00440 
N I N00450 
N I N00460 
NIN00470 
N I N00480 
NIN00490 
NIN00500 
NIN0051 0 
NIN00520 
NIN00530 
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22 

23 

24 

25 

26 

27 


2e 

29 

30 

31 

32 

33 

34 


/*  CREATE  ATTR  DESCRIPTION  FOR  N_NAME  */ 

aname=n_name; 

K_T  Y  PE  =  ' 00000001  1 B i 
BREL-  '  00000001  '  B; 

BSE  TUP  =NSETB1 ; 

ESETDOWN  =TEf.'P; 


NIN00540 
NIN00550 
NIN00560 
NIN00570 
N I N00580 
NIN00590 


RETURN; 
END  NINIT; 


/♦  CREATE  AN  ASSOCIATED  INSTANCE  OF  THE  ATTR  DESCRIPTION*/  NIN00600 
CALL  CREAT£B(NSET32.PTR2. ‘O'B, ATTR  STR.PTR);  NIN00610 

NIN00620 
NIN00630 
NIN00C40 
NINC0650 
N I N00660 
NIN00670 
NIN006B0 
NIN00690 
NIN00700 
NIN00710 
NIN00720 


/«  cr.  EATE  ATTR  orSCRIPTION  FOR  N_ATTR  */ 

ANAr.'E  =  N_ATTR  ; 

K_TYPE='00000000'B; 

BREL= 1 000000 1 0 1 B ; 

BSE TOO  WN»N3E  T  B2 ; 

/.  CREATE  AN  ASSOCIATED  INSTANCE  OF  THE  N_ATTR  OESCRIP  */ 
CALL  CREATE3(NSETB2,PTR2, *  0 1 B , ATTR_STR . PTR ) ; 


I 
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X  INCLUDE  DEFINEV;*. ..*•**•*•.*•*••** ***DV  00010 

FOR0001 0 

•  •  FOR00020 

•  MODULE  DESCRIPTION  *  FOR00030 

FOR00040 

DEFINEV:  PROCEDURE  FOR00050 

(  DV  ARG  /«  1 .  FOR00060 

2  B I T ( 64 ) ,  FORCOOTO 

2  BI T ( 8 )  */  );  FOROOOBO 

FOR00090 

PURPOSE:  FOROOIOO 

*****  THIS  MODULE  ACTS  AS  THE  NSET  INTERFACE  TO  THE  PSET  MODULE  FOROOMO 

••••*  OEFINEP.  IT  IS  USEO  PRINCIPALLY  TO  DEFINE  THE  UNDERLYING  FQR00120 

*,*•»*  PSETS  FOR  USER  DEFINED  DOMAINS.  NOTE  THE  EXTERNAL  LEVEL  F0R00130 

»«••*  IS  REPONSIBLE  for  checking  whether  a  duplicate  domain  IS  FOR00140 

•••••  BEING  DEFINED.  FOROOISO 

**•*•  FOR00I60 

***•**••»**•**»»*****•»»*•*****•••**••»**.•»•*•*•«»«*••****»*•*••••••  FOR00170 

•  ♦««♦  METHOO:  FOROOIBO 

.  THE  MODULE  IS  RATHER  TRIVIAL.  IT  IS  PASSED  VIA  DV  ARG  FQR00190 

*»♦•*  THE  NAME  OF  THE  PSET  TO  BE  CREATED  AND  THE  LENGTH  OF  FOR00200 

•  ••»«  THE  KEY.  THE  MODULE  THEN  USES  DEFAULT  PARAMETERS  CON-  FOR00210 

««•••  TAINED  IN  SYS. DEFAULT  TO  SET  UP  THE  CALL  TO  OEFINEP  FOR00220 

»••**  WHICH  IS  THE  MOOULE  RESPONSIBLE  FOR  DEFINING  THE  UNDER-  FORC0230 

*****  LYING  PSET.  AT  THE  CURRENT  TIME  THE  SYSTEM  DEFAULTS  ARE  F0R00240 

*****  LINK  TYPE  -  HASHED  FOR00250 

*****  LENGTH  -  320  BITS  FOR00260 

KEY  POSITION  -  STARTING  ON  FIRST  BIT  OF  DATA  AREA  F0R00270 

•  »***  SUBSET  -  NO  FOR00280 

*****  S.IO  -  0  FQII00290 

*****  10  -  NOT  RELEVANT  FOR00300 

»*«♦«  FOR0031 0 

*..*.•.•*•******•«.*,**.•***••«***•********.***•*.»**»»*»******•••»••  FOR 00320 

•  ♦  *  * •  INPUT  PARAMETERS:  FOR00330 

*••••  1  DV  ARG  STRUCTURE  TO  DEFINE  A  DOMAIN  FOR00340 

•**«•  2  NAME  NAME  OF  OOMAIN/PSET  FOR00350 

•«**«  2  KEY_LEN  LENGTH  OF  KEY  (MAXIMUM  32  CHAR)  FOR00360 

•  ♦«♦*  ~  FOR00370 

•••.•..••«***••»*..*..*•*••»*•*****•*•*••*..****•*•*••********.*•»•••  FORC0380 
*****  OUTPUT  PARAMETERS:  FOR00390 

*****  NONE  FOR00400 

*****  FOR00410 

•••»•*«•*•**• «<«*«*******•******•»*•****•**.*•*•*•»»•*• **•***•«••••••  FQR00420 

*****  CALLS  PROCEDURES:  F0R00430 

*««»«  DEFINEP  FQR00440 


•  «♦•*  FQROO450 


274- 


FOR0O460 

DV 

00010 

*DV 

00020 

/•  STRUCTURE  USED  TO  PASS  NAME  OF  VALUE  SET  TO  BE  DEFINED  •  / 

DVA0001 0 

2 

1 

0 

DCL  1 

OV_ARG  , 

DVA00020 

2  NAME  B I T ( 64 ) ,  /•  NAME  OF  VALUE  SET  ♦/ 

DVA00030 

2  KEY  LEN  B I T ( 8 ) ;  /*  LENGTH  OF  KEY  FIELD  */ 

DVA00040 

*  *  * 

DV 

00020 

/•  DEFAULTS  USED  TO  DEFINE  PSETS  */ 

DV 

00030 

3 

1 

0 

DCL  1 

SYS  DEFAULT, 

DV 

00040 

2  LINK  6 I T ( 8 )  INI T( 'OOOOOOOI 1 B) , 

DV 

00050 

2  LEN  B I T ( 16)  INIT( ' 00 000000 1 0000000 ‘ B) . 

DV 

00060 

2  KEY  POS  B 1 T ( 8 )  IN I T (  1  000000 0 1 ‘ B ) . 

DV 

00070 

2  SUBSET  BIT(B)  I N I T (  1  0000000 0 ' B ) , 

DV 

00080 

2  S  ID  B I T ( 8 )  1NIT( '00000000' B), 

DV 

00090 

2  ID  PTR ; 

DV 

00100 

DV 

00110 

/* 

PROCEDURE  CALLEO  •/ 

DV 

00120 

•  DV 

00130 

/*  DEFINE  PSET  MODULE  */ 

BCA00590 

4 

1 

0 

DCL 

DEFINE P  ENTRY! BIT( 64 ),8IT(B),B I T(B).BIT(8) ,BIT(8). 

BCA00600 

BIT(8) ,BIT(8) .POINTER)  ; 

BCA006 1 0 

*  *  ♦  *  * 

DV 

00130 

/* 

call  oefinep  module  ♦/ 

DV 

00140 

5 

1 

0 

CALL 

DEFINEP (NAME, LINK. KEY_PQS,KEY_LEN, LEN. SUBSET. S  ID, 

DV 

00150 

ID); 

DV 

00160 

6 

1 

0 

RETURN  ; 

DV 

00170 

7 

1 

0 

END  DEFINEV 

i 

DV 

00180 
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X  INCLUOE  FETCHV ;»•**♦«**♦«****«********»»**  ***************** *********** F ETOOO 1 0 

FQR0OO1 0 

•  *  FOR00020 

«  FQR00030 


MODULE 


DESCRIPTION 


FETCHV:  PROCEDJPE 


( F  V_ARG 


/*  1 


2  81T(64  )  . 

2  BIT(  1  *?  0  )  . 

2  FOUND  B I T ( 1 ) . 

2  DATA  B IT (320)  •/  )  I 


FOR00040 
FOR00050 
FOR00060 
FORO007O 
FQR00080 
FOR00090 
FOROOIOO 
FOROO 1 10 
FQR00120 


►****♦«  4  *  *  *  *  44***4***  ►  ',***i.***4*444*  *  *  4  *  *  . 

PURPOSE : 

THIS  MODULE  IS  RESPONSIBLE  FOR  RETRIEVING  A  SINGLE  INS T ANCFORC0 1 30 
GF  A  OOMAIN.  IT  IS  USED  PRIMARILY  BY  THE  EXTERNAL  LEVEL  TOFOR00140 
CHECK  IF  AN  ELEMENT  EXISTS.  SHIELDS  EXTERNAL  LEVEL  FROM  THFQR00150 


INTERNAL  LEVEL. 


ME  THOU : 


»4  ***44**4**4*4444**444444444****44********4******** 


FOR00160 

F0R00170 

FOROOIBO 

FQR00190 


VERY  SIMPLE.  IT  CALLS  FETCH , PASS  I N  G  IT  THE  ARGUMENTS  REQUIRED  FQR00200 


AND  RETURNS  THE  ELEMCNT  FOUND.  IF  IT  INDEED  EXISTS. 

INPUT  PARAMETERS: 

1  FV_ARG, 

2  D..NAVE  -THE  NAME  OF  THE  DOMAIN  TO  BE  SE ARCHE 0 
2  KEY  VAL  -  VALUE  ON  WHICH  TO  SEARCH 

2  FOUND-  FLAG  TO  INDICATE  IF  ELEMENT  WAS  FOUND.  NOT  USED 
ON  INPUT . ' 

2  DATA  -  BIT  STRING  REPRESENTATION  OF  ELEMENT.  NOT  USED 
I NPUT . 


44*#4*4*44#*4***#**4«************#******#***« 

OUTPUT  PARAMETERS: 

SEE  ABOVE 


.444  *4*444*4*4*#** 


CALLS  PROCEDURES: 
FETCH 


♦  4*44*44  .  4* 

X  INCLUDE  FVARG ; ♦ *  * • 4».*4* ******  ************ .*.*4 •.**•«••••**** »••• 

/*  FETCHV  TABLE  -USED  TO  RETRIEVE  INSTANCES  OF  A  DOMAIN  */ 
DCL  1  FV  .ARG, 

2  0_N AME  811(64),  /*  NAME  OF  OOMAIN  */ 

2  KEY  _V AL  OIT( 160 ) ,  /*  KEY  TO  SEARCH  ON  */ 

2  FOUND  BI T ( 1 ) ,  /*  IF  FOUND,  • T B , 0 THERW I SE  ‘0‘B 


F0R00210 
FOR00220 
FOR00230 
FOR00240 
FOR002S0 
FOR00260 
FOR00270 
FOR00280 
FOR00290 
FDR00300 
FOR00310 
FOR00320 
FOR00330 
FOR00340 
FOR00350 
FORQ0360 
FOR00370 
FORC0330 
FET00010 
►FET00020 
DEF00010 
0EF00020 
DEF00030 
DEF00040 
*/  DEF00050 


-276 


3 


4 


5 


6 

7 

8 
9 

10 
1  1 
12 


2  DATA  BIT  ( 320 ) ;  /*  RETRIEVE!)  ELEMENT  */  DEF00060 

DE  F 00070 

.«..**«*.*.*.**  FET00020 

/*  MISC  DECLARATIONS  •/  FET00030 

1  0  DCL  ID  PTR  INIT(NULL( ) ) ,  FET00040 

FNOSIT(t)  INIT(*0'):  FE  T  00050 

X  INCLUDE  INFOLND; »*  «♦*.*.***..•«»»•****»****•.♦*..»•****♦******•••***•* FE T 00060 
/♦  OATA  STACK  RETURNCO  BY  FETCH  */  8CA00450 

1  0  DCL  INF0_ND  81 T ( 320 )  EXTERNAL  CONTROLLED;  BCA00460 

**•*•♦**•»*»»»« f »  FE100060 

/*  PROCEDURES  CALLED  */  FET00070 

X  INCLUDE  EFETCH; ♦.♦.»,*....♦.♦.»*.«»♦*•»*•.****..*,••****•*••**•*•** F ET00080 
!*  FETCH  PSET  MODULE  ♦/  EFE00010 

1  0  DCL  FETCH  ENTRY ( B I T ( 2 ) . POINTER , B I T ( 64 ) , 81 T(64 ) . BIT( 1 ) ) ;  EFE00020 

•  FETOOOBO 

F  E 1 00090 

/♦  CALL  FETCH  TO  RETRIEVE  ELEMENT  •/  FET00100 

1  0  CALL  FETCH ( ' 0 1 1 B , 1 0 , 0_N AME , KE Y_VAL , FND) ;  FET00110 

1  0  IF  ALLOCATION(INFO  ND)>0  FE  TO0 1 20 

THEN  DO;  FE  TOO  1 30 

1  1  DATA  *  INFO_NO;  FET00140 

1  1  FREE  INF0_N0;  FET00150 

1  1  FOUND  =  ‘ 1 'B;  F  E  TOO  1 60 

1  1  END;  F  E  TO0 1 70 

1  0  ELSE  FOUNO  .'O'e;  FET00180 

1  0  RETURN;  FET00190 

1  0  ENO  FETCHV  J  FET00200 
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% INCLUOE  DEF I  NEB; ******♦******«**««»«*•**•****••«•#•»****•******•*• ****OB  OOOIO 

OE  F  00010 

•  MODULE  DESCRIPTION  *  DEF00020 

DEF00030 

0  DEFINE0:  PROCEDURE  DEF00040 

(  SET_NAME1,  /*  B I T ( 6  4  )  •  /  DEF00050 

DOMA INI,  /*  B I T ( 6 4  )  */  DEF00060 

D0MAIN2.  /*  B I T ( 6  4 )  */  DEF00070 

TYPE1.  /*  B l T ( 8  )  */  DEFOOOBO 

EQUIV  /*  B I T ( 1  )  ♦  /);  DEF  00090 

DE  F  00  I  00 

*****  PURPOSE:  DE  F  00 1 1 0 

THIS  MODULE  IS  RESPONSIBLE  FOR  DEFINING  A  BINARY  DEF00120 

*****  ASSOCIATION  BETWEEN  00MAIN1  AND  DOMA 1 N2 .  THIS  MEANS  DEF00130 

*****  THAT  IT  IS  RESPONSIBLE  FOR  ASSIGNING  POINTER  SLOTS  DEF00140 

WITHIN  A  PSET'S  POINTER  ARRAY  TO  PARTICULAR  BINARY  DEF00150 

ASSOCIATIONS.  IN  AOOITION,  IF  SUBSETS  ARE  REOUIRED  DEF00I60 

*♦♦«*  IT  ALLOCATES  THE  NECESSARY  POINTLR  SLOTS.  FINALLY  IT  DEF00170 

•»•*«  IS  RESPONSIBLE  FOR  UPCAT ING  A  PSET'S  P  CAT  ENTRY  TO  DEF001B0 

*****  REFLECT  ANY  CHANGES  MADE.  AS  WELL  AS  CREATE  A  BSET  CAT  DEF00190 

*****  ENTRY  WHICH  CONTAINS  ALL  INFORMATION  NECESSARY  TO  DEF00200 

*****  CONSTRUCT  A  BINARY  ASSOCIATION  BETWEEN  THE  2  DOMAINS.  DEF00210 

*****  IT  IS  CURRENTLY  CAPABLE  OF  IMPLEMENTING  1-1.  1-N.N-l,  AND  DEF00220 

*****  M-N  RELATIONSHIPS.  IT  IS  ALSO  CURRENTLY  CAPABLE  OF  DEF00230 

*****  DEFINING  RECIPROCAL  RELATIONSHIPS  (I.E.  IF  A  1-N  DEF00240 

*****  RELATIONSHIP  HAS  BEEN  DEFINED  BETWEEN  DOMA I N 1  AND  D0MAIN2  DEF00250 

*****  A  N-1  RELATIONSHIP  CAN  BE  DEFINED  BETWEEN  DOMA I N 2  AND  DEF00260 

*****  00HIN1  WITHOUT  ALLOCATING  ANY  ADDITIONAL  POINTER  SLOTS.  DEF00270 

*****  DEF00280 

. . .  dee  00290 

*****  METHOD:  DEF00300 

*****  T)  IF  THIS  IS  THE  FIRST  BSET  TO  HAVE  BEEN  DEFINED  IT  DEF003I0 

*****  IS  NECESSARY  TO  CREATE  B  SE  T  _C A  T  WHICH  IS  A  CATALOGUE  DEF00320 

**••»  CONTAINING  THE  NAME  OF  EVERY  BSET  DEFINED  ANO  DEF00330 

*****  IMPLEMENTATION  INFORMATION.  BSET  CAT  IS  ITSELF  IMPLEMENTEDDE F 00340 

*****  AS  A  PSET.  HENCE.  IT  IS  NECESSARY  TO  CALL  DEF INEP  IN  DEF00350 

*****  ORDER  TO  DEFINE  THE  PSET.  DEF003G0 

*****  2)  IF  EQUIVs'l'B  IT  MEANS  THAT  THE  BSET  TO  BE  DEFINED  IS  DEr00370 

*****  the  RECIPROCAL  OF  A  PREVIOUSLY  DEFINED  BSET.  AND  HENCE  DEF00380 

*****  NO  NEW  POINTER  SLOTS  NEED  BE  A  L  LOC AT  F  D .  THE  CATALOGUE  DEF00390 

*****  ENTRY  CORRESPONDING  TO  THE  PREVIOUSLY  DEFINED  BSET  OEF00400 

*****  (SETNAME1)  IS  FETCHED  FROM  BSET  CAT  VIA  A  CALL  TO  FETCH.  DEF0O4I0 

•  *♦♦*  THE  INFORMATION  CONTAINED  IN  B SE T _C AT  IS  USEO  TO  CREATE  DEF00420 

*****  A  RECIPROCAL  BSET.  NAMEGEN  IS  CALLED  TO  CREATE  A  NAME  DEF00430 

*****  FOR  THE  NEW  BSET,  ANO  THE  NEW  BSET  IS  INSERTED  INTO  THE  DEF00440 

*****  BSET_C AT  PSET  VIA  A  CALI  TO  CREATEP.  IT  THEN  RETURNS  TO  DEF00450 
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THE  CALLING  MODULE . 

3)  OTHERWISE,  IT  IS  NECESSARY  TO  BUILD  THE  BSET  DEFINITION 
IT  BEGINS  BY  USING  THE  SEARCH  PROCEDURE  TO  SEE  IF  DOMAIN 
AND  DOMAIN2  EXIST.  IF  ONE  OR  THE  OTWf  R  IS  NOT  FOUND  AN 
ERROR  MESSAGE  IS  PRINTED  AND  THE  PROCEDURE  RETURNS.  IF 

A  DOMAIN  EXISTS  IT  CALLS  MAPSE T ,  PASSING  IT  THE  APMAP  AND 
SPMAP  FOR  THE  PSET  (PART  OF  THE  PSET  CATALOGUE  ENTRY), 

AND  MAPSET  FINDS  A  FREE  POINTER  SLOT.  UPDATES  THE  AP  AND 
SP  MAPS  AND  RETURNS  THE  NUMBER  OF  THE  SLOT. 

THIS  NUMBER  IS  INSERTED  INTO  THE  APPROPRIATE  AP_POS 
W1T-1IN  BSET  CAT. 

4)  IF  THE  BSE  I _ I S  M-N  IT  IS  NECESSARY  TO  DEFINE  A  LINK 
SET,  THROUGH  WHICH  TO  LINK  THE  1  WO  DOMAINS.  THIS  IS 
DONE  VIA  A  CALL  TO  DE F I NEP , P AS S I NG  IT  A  PSETNAME  CREATED 
BY  A  CALL  TO  NAME GEN.  IN  THIS  IMP  L  Et|!  NT  AT  I  ON ,  THE 

SAME  POINTER  SLOTS  IN  THE  LINK  SET  |kC  ALLOCATED  AS  IN 
THE  ACTUAL  DOMAINS.  FOR  EXAMPLE.  WHATEVER  AP_POS(1) 
HAPPENS  TO  BE,  THAT  POINTER  SLOT  IN^IHF.  LINK  SET  IS  ALSO 
ALLOCA1FO.  THIS  REQUIRES  SOME  MODIFICATION  TO  THE 
AP  AND  SP  MAPS  OF  THE  LINK  SET,  AS  WELL  AS  TO  THE  POINTER 
■LOT  USED  TO  LINK  ELEMENTS  OF  THE  LINK  SET  TOGETHER. 
FINALLY.  IT  IS  NECESSARY  TO  ALLOCATE  A  POINTER  SLOT 
TO  BE  USEO  TO  CHAIN  SUBSETS. 

5)  IF  THE  BSET  TYPE  IS  EITHER  |-N  OR  N-1  IT  IS  NECESSARY 
TO  ALLOCATE  A  POINTER  SLOT  TO  BE  USED  TO  CHAIN  ELEMENTS 
WITHIN  A  SUBSET  TOGETHER.  THIS  IS  DONE  VIA  A  CALL  TO 
MAPSET  . 

6)  THE  FINAL  STEP  IS  TO  CREATE  THE  APPROPRIATE  ENTRY  IN  THE 
BSET  CATALOGUE.  THIS  IS  ACCOMPLISHED  THROUGH  A  CALL  TO 
CRE.TEP. PASSING  IT  THE  INFORMATION  CONTAINED  IN  THE 

BSE  f  CAT  STRUCTURE  BUILT  DURING  THIS  PROCEDURE. 


*«***  +  «***  *.  ***##**♦*******♦«  +  ♦**♦♦*♦***,**#•»**•*+********♦*•< 
INPUT  PARAMETERS: 

SET_NAMEI-  IT  IS  INTERPRETED  IN  TwO  WAVS  DEPENDING  ON 
THE  VALUE  OF  EQUIV.  IF  CQUIV  =  'O'B  THEN 
SET.NAME1  IS  THE  NAME  OF  THE  BSET  TO  BE 
DEFINED.  OTHERWISE  IT  1$  INTERPRETED  AS  THE 
NAME  OF  THE  BSET.  WHICH  IS  THE  RECIPROCAL  OF 
OF  THE  BSET  TO  BE  DEFINED. 

DOMAIN1-  THE  NAME  OF  THE  FIRST  PSET  IN  THE  BSET. 

MUST  BE  PREVIOUSLY  DEFINED. 

DOMAIN2-  THE  NAME  OF  THE  SECOND  PSET  IN  THE  BSET.  ALSO 
MUST  BE  PREVIOUSLY  DEFINED. 

TYPE1-  TYPE  OF  BINARY  ASSOCIATION: 

1  —  1  —  ' 00000001  1  B 
1-N  -  1  0000  00 1 0 ' B 
N-1  -  ' 0000  0  1 00 1 B 
M-N  -  ' 0000 1000 ' B 


0EF00460 
DEF00470 
DEF00480 
DE  F  00490 
OEFOOSOO 
DE  F  005 1 0 
DEF00520 
OE  F  00530 
DEF00S40 
DEFOOSSO 
DE  F  00560 
DEF00S70 
DEFO05B0 
DEF 00590 
DEF00600 
DEF00G1 0 
DE  F  00620 
DEF  00630 
DEF0C640 
DEF00G50 
DErooeeo 
D^F  00670 
DEF006B0 
DEF00G90 
DEI  00700 
DEF0C710 
DE  F  00720 
DEF00730 
OE  F 00740 
DEF 00/ 50 
DEF00760 
DE  F  0077  0 
DEF  00780 
DE  F  00790 
DEFOOBOO 
DE F  008 1  0 
DEF  00620 
DEF  00030 
DE  F  0084  0 
DE  F  00850 
DEF  00060 
DE F 0087  0 
DEF00880 
DE  F  00390 
DE  F  00900 
DEF  009 1 0 
DE  F  00920 
DEF  00930 
DE  F  00940 


.  •  -  ♦ 
>  *  »  • 


EQUIV-  IF  EQUIV  =  '1*B  MEANS  THAT  THE  BSE T  TO  BE  OEFINED 
IS  THE  RECIPROCAL  OF  THE  PREVIOUSLY  DEFINED  BSET 
IDENTIFIED  BY  SET_N AME I ,  OTHERWISE  NO  RECIPROCAL 
HAS  BEEN  PREVIOUSLY  DEFINED. 


OUTPUT  PARAMETERS: 

IF  EOUIV  =  *  1  • B  THEN  THIS  PROCEDURE  RETURNS  THE  NAME  OF 
NEW  ESET  IN  SET _NAME 1  ,  OTHERWISE  NO  ARGUMENTS  ARE 
RE  U  TMEO  . 


PROCEDURES  INVOKED: 

MAPSET,  DEFINEP,  FETCH.  CREATEP,  NAMEGEN,  SEARCH 


,•••*•«  *  +  ♦  •***,.******♦♦***♦*♦*• 


. . . 


/»  parameter  declarations  ♦/ 

OCL  (SET  NAME! .DOMAIN1 .DOMAIN2)  BIT(64),  TYPE!  BIT(8), 
SUCCESS  BIT(1).  BSETJFLAG  BIT  (  1  )  STATIC  INIT('O'B), 
FREE.SLOT  BIT(B), EOUIV  BIT(1); 

X  INC LUO E  BSETCAT;»**»»»*»*»*********»«,,»**»»**»»**»»***»»*»»»»»»< 
/•  BSE  T  _  C A  T  TEMPLATE  ♦/ 


DEF00950 
DEF00960 
DE  F  00970 
DEF009B0 
DE  F  00990 
DE  F  0 1 000 
DEF01010 
DEF01020 
DEF0IC30 
DEF01040 
DEF0IC50 
DE  f  0 1 000 
DE  F  0 1 070 
DEF010U0 
DE  F  0 1 090 
DEF01 100 
DB  00010 
DU  00020 
DB  00030 
DB  00040 
DB  00050 
DB  00000 
DB  00070 
•DB  OOOBO 
BCA00020 


BASE  B I T ( 320  )  , 

I  BSET  CAT  OEFINED  (BASE), 

/• 

USED 

FOR  BEU 

OVERLAY  •/ 

BCA00030 

BCA30040 

2 

SET  NAME  BIT (64). 

/• 

NAME 

OF  BSET 

•/ 

BCA00050 

2 

DOMA IN_INF0(2) . 

/• 

DOMA 

IN  INFORMATION  ♦/ 

BCA00060 

3  NAME  B I T ( 64 ) , 

/• 

NAME  OF  DOMAIN  ♦/ 

BCA00070 

3  AP_POS  B I T ( 8  )  , 

/  • 

PTR 

SLOT  US 

ED  FOR  LINK  */ 

BCAOOOBO 

2 

TYPE  IIIT(B)  . 

/• 

TYPE 

OF  BSET 

•/ 

BCA00090 

2 

SUB_ I 0  BIT(B), 

/* 

PTR  : 

SLOT  FOR 

SUBSET  LINK  •/ 

BCA00100 

2 

i  *  *  •  • 

MN_NAME  BIT (64); 

/♦ 

NAME 

OF  M  TO 

N  LINK  SET  */ 

BCA001 10 
DB  OOOBO 

XINCLUDE  PSETCAT;**. 

/•  PS  E  T_C AT 


template 


1 

CATENTRY  BASEO(P), 

/•  BASED  ON  ID  OF 

PSE  T_C AT  BEU 

*/ 

2 

LENGTH  FIXED  BIN( 15) , 

/* 

LENGTH  OF  CAT 

ENTRY  •/ 

2 

P_AR  RAY (16)  POINTER, 

/• 

PTR  ARRAY  FOR 

LINKING  */ 

2 

DATA  . 

/* 

INFO  ON  PSET 

ORGANIZATION 

*/ 

3  NAME  B I T ( 64  )  , 

/* 

NAME  OF  PSET 

*/ 

DB  00090 
■DB  00100 
BCA001 30 
BCA00140 
BCA00150 
BCA00160 
BCA00170 
BCAOOIBO 


(  3  SP_MAP,  /*  Map  of  POINTER  ARRAY.  •/  BCA00190 

3  AP.MAP  )  B  I  T  ( 1  6 ) ■  /*  GIVING  STATUS  OF  P_SLOTS  */  BCA00200 

3  NUMFREE  BIT(B),  /•  NOT  USED  •/  BCA00210 

3  SEARCH_ INFO,  /•  LINKAGE  INFORMATION  •/  BCA00220 

(  4  L_TYPE ,  /•  TYPE  OF  LINK  (HASHED  ETC.  .  )*/BCA00230 

4  L_P0S1 ,  /*  PTR  SLOT  USED  FOR  CHAINING  */BCA00240 
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4  L_POS2 ,  /•  ADDITIONAL  PTR  SLOT  FOR  LINK  */BCA00250 

4  KEY_P0S ,  /*  STARTING  POSITION  OF  KEY  */  BCA00260 

4  K£Y_LEN  )  BIT(8).  /*  LENGTH  OF  KEY  •/  BCA00270 

3  S£T_TYPE,  /*  SET  TYPE  INFO  •/  BCA002B0 

(  4  SUSSET,  /*  If  PRIMARY  OR  SUBSET  •/  BCA00290 

4  SU8SE T _ IOi  /»  PTR  SLOT  FOR  SUBSET  LINK  */  BCA003C0 

4  P_CHA1N,  /*  PTR  SLOT  PTS  TO  PRIMARY  DCL*/CC A0031 0 

4  $_CHA I N  )  B  I T ( 8 ) ,  /*  SUBSET  OCL  CHAIN  •/  6CA00320 

3  DATA_LEN  B1T(15);  /•  LENGTH  OF  ELEMENTS  */  BCA00330 

•*•*»«*•*,******«  DO  00100 

DB  00110 

5  1  0  OCL  ( P_CAT , B_CAT )  BtT(64)  STATIC  EXTERNAL;  DB  00120 

6  1  0  DCL  ( A 1 _TO_ I , A 1 _ TO_N , N_ TO_ 1 , M_TO_N )  BIT(8)  STATIC  EXT;  DB  00130 

DO  00140 

XlNCLUDE  IDS1 ;**«»* «»*♦***« •*****«*♦*****»***•**»»«•»*•*******♦•*•* ***»DB  00150 
/•  POINTER  STACK  RETURNED  BY  SEARCH  */  BCA00420 

7  1  0  DCL  1DS1  PTR  EXTERNAL  CONTROLLED;  BCA00430 

•****♦♦*»*»••*  DB  00150 

DB  001  GO 

XlNCLUDE  INFOUND; *  * *»»«*»**»***»»***»***»»»*»»**»»*»**»**»**»*********»DB  00170 
/»  DATA  STACK  RETURNED  BY  FETCH  •/  BCA00450 

8  t  0  DCL  I NFO_N D  BI T ( 320 )  EXTERNAL  CONTROLLED:  BCA00460 

a**.*.******.*.*.  Da  00170 

DB  00180 

/*  PROCEDURES  CALLED  */  DB  00190 

X INCLUOE  EDEF INP;.*.*«».* 4. ».*».»..,.*.....*«.****.**.*.****,*.******., db  00200 
/*  DEFINE  PSET  MODULE  •/  BCA00590 

9  1  0  OCL  DEFINE P  ENTRY(BIT( C4) .BIT (8) ,BIT(8) ,BIT(8) ,BIT(8) ,  BCAOOGOO 

6  IT<8)  ,  BIT(8J  .POINTER)  ;  BC'AOOBlO 

.MMM4444M4T4.  OB  00200 

X  INCLUDE  ECRE ATF ;«»**»«•*♦»»». **»****»4i*»««*. *•»*.♦.*******»********•♦» OB  0C210 
/*  CREATE  PSET  MODULE  */  BCA00630 

10  1  0  OCL  CREATEP  ENTR Y ( BI T ( 64 ), BI T ( 320 ), POINT ER ) ;  BCA00640 

Du  00210 

X  INCLUDE  EFET CH «»»»•»•. DB  00220 
/*  FETCH  PSET  MODULE  */  EFE00010 

11  t  0  DCL  FETCH  ENTRY ( B I T ( 2 ) , POINT ER , B I T ( 64 ) , B I T (64 ) , BI T ( 1 ) ) ;  EF100020 

**•*•*»* t **««»* t  DB  00220 

X INCLUOE  ESEARCH; «***»*»**•»**»*♦♦*******•»*•**♦•*.**«******♦**«**• ****DB  00230 
/♦  SEARCH  MODULE  •/  BCA00700 

12  1  0  DCL  SEARCH  ENTR Y ( BI T ( 2 ) , B I T ( 64 ) , B I T ( 64 ) , PO INTE R , POINTER) ;  8CA00710 

8CA00720 
DB  00230 

%  INCLUDE  EMAPSFT; *««»♦********»**»***»**•»*.»»**•.♦***•***•*.**.*»•***. OB  00240 
/.  MAP  MAINTENANCE  MODULE  */  ECR0C05 0 

13  1  0  DCL  MAP5ET  ENTRY( el T< 1 ) , F IXED  BIN( 8 ) , BIT ( 1 6) . BI T ( 16) . BtT(B) ) }  ECR0C060 

*••**•»♦•••♦••*•«  OB  00240 

X  INCLUDE  ENAMECN; •••.**•***••*♦**********«  4.  **.**♦.********♦*,«*«*. ****»DB  00250 
/*  RANDOM  NAME  GENERATOR  */  ECR00080 


14  1  0 


15  1  0 


16  1  0 

17  1  1 

18  11 


I 

N) 

03 

V-» 

I 


19  1  1 

20  1  1 

21  1  1 

22  1  1 

23  1  1 

24  1  1 


25  1  0 


26  1  1 

27  1  1 

28  1  1 


29  1  1 

30  1  1 

31  1  t 


32  1  1 

33  1  1 

34  1  1 


OCt  N  AMEGEN  ENTRY  (  FIXED  BIN(15))  RE  TURNS(  BI T  (64  )  ) ,' 


/«  MISC  DECLARATIONS  */ 

DCL  ( 101 . ID2,I0_CAT(2) )  POINTER  I N I T ( NULL ( ) ) , 

I  DX  P  T  R  C  T  L 

/»  TEMPORARY  STRUCTURE  TOR  EQUIVALENCE  OPERATION  •/ 
1  TEMP  _ INFO , 

2  NAME  BIT (64), 

2  AP  P0S1  01 T( B ) i 


/.  IF  THIS  IS  THE  FIRST  CALL  TO  DEFINEB.  DEFINE  THE  BSETCAT 
PSET  »/ 

IF  "8SET.FL  AG  THEN 

do; 

B  CAT  =  UNSP£C(  'BSET.CAT '  )  ; 

CALL  DEF 1NEP ( B.CAT , '00000001 'B, ’00000001 'B, 

1 0 1 000000 ' B, *0000000 1 000101 1 1 ' B, 

•  ooooooooo1 a, • oooooooo*  B, idi ) s 

BSET  F LAG= ' 1 ‘ B ; 

At  TO  1='00000001 ' B ; 

A  llTO>  '  0000  00 1  O' 0; 

N.TO.I* ‘OOOOO too'8; 

m!toIn= ' C0001 000'B; 

END; 

/*  IF  EOUIV  FLAG  SET,  MEANS  BSET  TO  BE  DEFINED  IS  A  RECIPROCAL 
OF  THE  BSET  SET_NAME1  */ 

IF  EOUIV 

ThEN  DO;  ...  . 

/*  GET  BSETCAT  ENTRY  FOR  SET_NAME1  TO  USE  AS  A 

TEMPLATE  -/ 

CALL  FE T CH(  '0  1  ' B, IDI , B_CAT ,SET_NAME1 ,  'O'B); 

B  ASE  =  I N  FC_ND ; 

FREE  INFO.NO ; 

/«  MODIFY  D0MA1N.INF0  TO  REFLECT  RECIPROCAL  •/ 

TEMP  INF0=D0MA1N_INF0( 1 ) ; 

DOMAIN. INFO( 1 )=D0MA1N_INF0(2); 

DOM A IN^lNFOtS ) =TEMP_ INFO; 

/♦  GENERATE  NAME  FOR  BSET  */ 

S  ET .NAME  1  =  N AMEGEN ( B ) ; 

S  ET.NAME -SE  T.NAME 1 ; 

T  YPE*TYPE1 ; 

/»  INSERT  NEW  CAT  ENTRY  INTO  BSETCAT  PSET  */ 

CALL  Cfi£ATEP(B_CAT, BASE, IDI); 


ECR00090 
DB  00250 
DB  00260 
DB  00270 
DB  00200 
DB  00290 
DB  00300 
OB  00310 
DB  00320 
DB  00330 
DB  00340 
DB  00350 
DB  00360 
DB  00370 
DB  00380 
DB  00390 
DB  00400 
DB  00410 
DB  00420 
DB  00430 
DB  00440 
DB  00450 
DB  00460 
DB  00470 
OB  00480 
DB  00490 
DB  00500 
DB  00510 
DB  00520 
DB  00530 
DB  00540 
DB  00550 
DB  00560 
DB  00570 
OB  00580 
OB  00590 
DB  00600 
DB  00610 
DB  00620 
DB  00630 
DB  00640 
DB  00650 
DB  00660 
DB  00670 
DB  00630 
DB  00690 
DB  00700 
DB  00710 
DB  00720 


35  1  1 


36 

1 

1 

RETURN; 

DB 

00730 

37 

1 

1 

END; 

DB 

00740 

DB 

00750 

/*  OTHERWISE  •/ 

DB 

00760 

/*  BUILD  CAT  ENTRY  FOR  NEW  BSET  */ 

DB 

00770 

36 

1 

0 

SET_NAf.lE=SE T_NAME 1 ; 

OB 

00780 

39 

1 

0 

DOMAI N_INFO . NAME ( 1 )*D0MAIN1 ; 

DB 

00790 

40 

1 

0 

DOMA I N_ INFO . NAME ( 2 ) =DOM A I N2 ; 

DB 

OOBOO 

41 

1 

0 

T YPE*  T  Y PE  1 ; 

DB 

00810 

DB 

00820 

/♦  VERIfY  EXISTENCE  OF  EACH  DOMAIN,  AND  ALLOCATE  PTR  SLOT  •/ 

DB 

00830 

42 

1 

0 

DO  J=1  TO  2 ; 

DB 

00840 

43 

1 

1 

CALL  S  EARCH (  '01 1 B , P_CAT , DOMAIN _ INFO . NAME( J ), IDX , ID1 ) ; 

DB 

00850 

44 

1 

1 

IF  ALLOCAT10N{IDS7)='0'B  THEN 

DB 

00860 

DO; 

DB 

00870 

45 

1 

2 

PUT  SKIP  EOIT( 'DOMAIN* ,J, 'DOESNT  EXIST  .ERROR') 

DB 

00880 

(  A  ,  F  ( 7 )  ,  A  )  ; 

DB 

00890 

46 

1 

2 

SUCCESS* ‘O'B; 

DB 

00900 

47 

1 

2 

RETURN; 

DB 

00910 

48 

1 

2 

END; 

DB 

00920 

/*  ID  CAT ( J )  PTS  TO  PSET  CAT  ENTRY  FOR  DOMAIN  */ 

DB 

00930 

49 

1 

1 

ID  CAT ( U  )  =  I DS 1 ; 

DB 

00940 

50 

1 

1 

FREE  I 0S1 ; 

DB 

00950 

DB 

00960 

/♦  ALLOCATE  A  FREE  POINTER  SLOT  TO  BE  USED  FOR 

DB 

00970 

IMPLEMENTING  BSET,  UPDATE  PSETCAT  TO  REFLECT  SLOT 

DB 

00980 

ALLOCATED.  IF  NONE  AVAILABLE,  PRINT  ERROR  */ 

DB 

00990 

61 

1 

1 

CALL  MAPSET('1'B,2,I D_CA  T ( J ) ->  SP_MAP , I D  CAT ( J )->AP _MAP , 

DB 

01000 

FREE  SLOT); 

DB 

01010 

52 

1 

1 

IF  .-'REE  SLOT  =' 0000 0000 '  B  THEN 

D3 

01020 

DO; 

DB 

01030 

53 

1 

2 

PUT  SKIP  EDIT ( *  NO  MORE  FREE  SLOTS  IN  DOMAIN1  ,<J) 

DB 

01040 

(  A  ,  F  (  7  )  )  ; 

DB 

01050 

54 

1 

2 

SUCCESS*  FREE_SLOT ; 

DB 

01060 

55 

1 

2 

RETURN; 

DB 

01070 

56 

1 

2 

END; 

DB 

01080 

/•  PLACE  POSITION  OF  ALLOCATED  POINTER  SLOT  IN  BSETCAT 

DB 

01090 

ENTRY  FOR  BSET  */ 

DB 

01100 

57 

1 

1 

AP_POS (J)*FRE£_SLOT ; 

DB 

01  1  10 

58 

1 

1 

END; 

DB 

01120 

DB 

01  130 

59 

1 

0 

IF  TYPE*M_TO_N  THEN 

DB 

01140 

DO; 

DB 

01150 

/*  IF  M  TO  N, NECESSARY  TO  DEFINE  A  LINK  SET  TO  BE 

DB 

01160 

USED  TO  IMPLEMENT  BSET  */ 

DB 

01170 

60 

1 

1 

MN  NAME  =  NAMEG  EN ( 8 ) ; 

DB 

01180 

61 

1 

1 

CALL  DE F I NEP ( MN  NAM E , ‘ 000 001 00 ' B , * 0000000 1 ' B , 

DB 

01190 

•00010000' B, '000 10000 'B, *0‘B, 'O' B.ID  CAT (2)) ; 

DB 

01200 

DB 

01210 

/*  MODIFY  ALLOCATION  OF  PTR  SLOTS  IN  LINK  SET  SO  THAT 
SAME  PTR  SLOTS  CAN  BE  USED  AS  SPECIFIED  FOR  EACH 
OF  THE  DOMAINS  */ 

ID  CAT(2)->L  P0S2  = 1 00001  1  11 • B S 
S UBSTR ( ID  CAT { 2 ) ->S P_MAP ,AP_POS(1).1 )  •  '  0  *  B ; 

SUBSTR(  ID.CAT(2)->SP_VAP, AP_POS(2) ,1 ) - *  0 ' B; 

10  CAT ( 2 )->AP  MAP* I D_CAT ( 2  )->SP_MAP; 

CALL  MAPSETC 1 1 B . 1 , I D_CAT ( 2 )->SP_MAP . ID„CAT(2)-> 
AP_MAP,SUB_ID) ; 


ELSE  IF  TYP£sA1_TO_N! TYPE=N_TO_l  THEN 
DO; 

/•  IF  EITHER  t  TO  N  OR  N  TO  t,  IT  IS  NECESSARY  TO 
ALLOCATE  A  POINTER  SLOT  TO  BE  USED  TO  CHAIN 
ELEMENTS  IN  A  SUBSET  TOGETHER  •/ 

IF  TYPE  =A1 _TO_N  THEN 
K  =  2; 

ELSE  K*1  *, 

/*  FINOS  FREE  PTR  SLOT  ANO  RESERVES  IT  BY  UPDATING 
PSETCAT  ENTRY  FOR  DOMAIN  TO  REFLECT  ALLOCATION  */ 
CALL  MAPSETC 1'B.1,ID_CAT(K)->SP_MAP,ID_CAT(K)-> 

ap_map,sub_!0) ; 

IF  SUb1iD«'0'8  THEN 
DO; 

PUT  SKIP  EDIT ( 1  NO  MORE  AVAILABLE  SLOTS  IN  *.K) 
(A.F<7)>; 

SUCCESS* ' 0 ' B; 

RETURN; 

END! 


/*  INSERT  ENTRY  NTO  THE  PSETCAT  PSET  •/ 
CALL  CREATE P( B_CAT , BASE , IOt ) ; 

RETURN; 

END  DEFINES; 


DB  01220 
OB  01230 
DB  01240 
DB  01250 
DB  01260 
DB  01270 
DB  01280 
DB  01290 
DB  013 00 
DB  01310 
DB  01320 
DB  01330 
DB  01340 
DB  01350 
DB  01360 
DB  01370 
DB  01330 
DB  01390 
DB  01400 
DB  01410 
DB  01420 
DB  01430 
DB  01440 
DB  01450 
DB  01460 
DB  01470 
DB  01480 
DB  01490 
DB  01500 
DB  01510 
DB  01520 
DB  01530 
DB  01540 
DB  01550 
OB  01560 
DB  01570 


X  INCLUDE  CREA  TEB; < 

. . . 


MODULE  DESCRIPTION 


creates: 


PROCEDURE 


(B  SET,  /*  B I T ( 64)  */ 

101 •  /♦  pointer  */ 

0 AT  A 1 ,  /*  B I T (  320 ) »/ 
DATA2,  /*  BI T( 320 ) ♦/ 
102  /♦  POINTER  */); 


•CB  00010 
FOROOOl 0 
FOR00020 
FOR00030 
FOR00040 
FOR00050 
FOR00060 
FQR00070 
FOR00080 
FOR00090 
FOROOIOO 
FOROOl 10 
FOR00120 


PURPOSE:  FOROOl 10 

THIS  MOOULE  IS  RESPONSIBLE  FOR  CREATING  A  BINARY  FOR00120 

ASSOCIATION  BETWEEN  DATA  1  AND  0ATA2  BASED  ON  IMPLENTAT ION  FOR00130 
INFORMATION  CONTAINED  IN  THE  BSET  CATALOGUE  FOR  THE  FOR00140 

BINARY  SET  IDENTIFIED  BY  B_SET,  THE  BINARY  SET  MUST  FOR00150 

HAVE  BEEN  PREVIOUSLY  DEFINED  USING  THE  DEFINED  PROCEDURE.  FOR00160 
AS  CURRENTLY  IMPLEMENTED  AN  OCCURENCE  OF  DATA1  MUST  FOR00170 

ALREAOY  EXIST  IN  00MAIN1  .  HOWEVER.  IF  DATA 2  DOES  NOT  E XISTFORO0 1  BO 


IT  WILL  BE  CREATEO. 


FOROOl 90 
FOR00200 
F0R0021 0 

METHOD:  FOR00220 

1)  THE  BSET_CAT  ENTRY  FOR  B_SE  T  IS  FIRST  RETRIEVED  FROM  FOR00230 

I’SET  CAT  USING  THE  FETCH  PROCEDURE.  THIS  IN  EFFECT  FOR00240 

PLACES  THE  BSET_CAT  INFORMATION  FOR  THIS  BSET  INTO  FOR00250 

THE  BSET_CAT  STRUCTURE  WITHIN  THE  PROCEDURE.  FOR00260 

2)  THE  USER  HAS  THE  CHOICE  OF  SPECIFYING  EITHER  THE  AC TUALFOR00270 

DATA  VALUE  IN  THE  FIRST  DOMAIN  OR  BY  SPECIFYING  A  POINTFOR00280 
WHICH  POINTS  TO  THE  DATA  ITEM.  IF  THE  USER  CHOOSES  THE  FOR00290 
FORMER,  THEN  THE  SEARCH  PROCEDURE  IS  INVOKED  TO  RETURN  FOR00300 
A  POINTER  TO  THE  OCCURENCE  OF  DAT  A 1  IN  DOMA INI.  .F0R00310 

IF  NO  VALUE  IS  FOUNO  WHICH  MATCHS  DAT  A 1  THEN  AN  ERROR  FOR00320 
MESSAGE  IS  PRINTED  AND  THE  PROCEDURE  REUPNS.  FOR0O330 

3)  IF  THE  BINARY  ASSOCIATION  I S  1  TO  1  THEN  AN  INTERNAL  FOR00340 

PROCEDURE  CALLED  GET_D0MAIN2  IS  CALLEO  WHICH  RETURNS  FOR003S0 

A  POINTER  WHICH  POINTS  TO  AN  OCCURENCE  OF  DAT A2  IN  F0R00360 

D0MAIN2.  GET_D0MA!N2  EITHER  FOUND  AN  EXISTING  OCCURENCE FOR 00 3 70 
OF  DAT A2  WHICH  WAS  ELIGIBLE  (I.E.  ITS  AP_P0S<2)  WAS  FOR00380 
NULL)  OR  IT  CREATED  A  NEW  ENTRY  VIA  THE  CREATEP  ROUT  I NEFOR00390 
IN  EITHER  EVENT,  POINTER  SLOT  (AP.POS(t))  IN  THE  BEU  FOR00400 
CONTAINING  DATA1  IS  UPDATED  TO  POINT  TO  DAT A2 ,  AND  THE  FOR00410 
POINTER  SLOT( AP_P0S(2 )  )  IN  THE  BEU  CONTAINING  DATA2  IS  FOR00420 
UPDATED  TO  POINT  TO  DATA!.  FOR00430 

4)  IF  THE  BSET  IS  1-N  THEN  AP_P0S{1)  SHOULD  POINT  TO  THE  FOR00440 
PSET  CATALOGUE  DEFINITION  FOR  THAT  SUBSET.  THE  PROCEDURFOR004S0 


FIRST  CHECKS  TO  SEE  IF  THAT  POINTER  SLOT  IS  NULL  OR  FOR00460 

NOT.  IF  SO.  THIS  IS  THE  FIRST  ENTRT  FOR  THIS  SUBSET  FOR00470 

AND  IT  IS  NECESSARY  TO  CREATE  THE  SUBSET  DEFINITION  FOR00480 

WITHIN  THE  PSCT  CATALOGUE.  THIS  IS  OONE  VIA  A  CALL  TO  FQR00490 
THE  DEFINEP  PROCEDURE,  PASSING  IT  THE  NAME  OF  THE  FOR00500 

PSET  CONTAINING  THE  SUBSET  (  I.E.  DOMAINS),  AS  WELL  AS  FOROOSIO 
THE  POINTER  SLOT  ALLOCATED  BY  THE  DEFINES  PROCEDURE  FOR00520 

TO  BE  USED  FOR  CHAINING  ELEMENTS  OF  THE  SUBSET  T OGE THE R FOR 00530 
THE  DEFINEP  PROCEDURE  RETURNS  A  POINTER  TO  THE  CATALOG  FOR00540 
ENTRY  CREATED  AND  THIS  POINTER  IS  PLACED  IN  AP_POS  FOR00550 

(1)  OF  THE  BEU  CONTAINING  DATA!.  IF  THE  POINTER  SLOT  FQR005G0 
WAS  ORGINAL.LY  NON-NULL  THEN  IT  ALREADY  POINTED  TO  THE  F0R00570 
CATALOGUE  ENTRY.  THE  NEXT  STEP  IS  TO  CHAIN  DAT A2  TO  FOH005BO 
DAT A1. THIS  CONSISTS  OF  SEVERAL  TASKS.  FIRST  GET_DOMAIN2FOR00590 
IS  CALLED  AND  IT  EITHER  FINDS  AN  ELIGIBLE  OCCURENCE  FOR00600 
OF  DAT A2  IN  D0MAIN2  AND  CHAINS  IT  INTO  THE  SUBSET.  OR  FOR00610 
IT  CREATES  AN  OCCURENCE  OF  DAT A2  WITHIN  THE  SUBSET  THISFUR00G20 
ALSO  HAS  THE  EFFECT  OF  INSERTING  IT  INTO  D0MAIN2.  IN  FOR00630 
EITHFR  EVENT  IT  RETURNS  A  POINTER  TO  THE  BEU  WHICH  FQR00640 

CONTAINS  0ATA2.  AND  CREATEB  UPDATES  THE  AP_P0S(2)  FOR00650 

POINTER  SLOT  POINTED  TO  BY  THAT  POINTER  TO  POINT  TO  THEFOROO66O 
OCCURENCE  OF  DATA!  IN  OOMAINI.  FOR00670 

5)  IF  THE  BSET  IS  N-1  THE  LOGIC  IS  VERY  SIMILAR  BUT  IN  FOR00680 

REVERSE.  IT  FIRST  CHECKS  TO  SEE  IF  AN  OCCURENCE  OF  DATAF0R00690 
EXISTS,  AND  IF  NOT  IT  CREATES  AN  OCCURENCE  OF  DATA2.IT  FOR00700 
THEN  CHECKS  TO  SEE  IF  THE  AP  P0SI2)  POINTER  SLOT  IN  THEFOR00710 
BEU  CONTAINING  0ATA2  IS  NULl'oR  NOT.  IF  SO,  IT  IS  FOROO720 

NECESSARY  TO  CREAIE  A  CATALOGUE  ENTRY  FOR  THE  SUBSET  FOR00730 
10  BE  CREATED  IN  DOM A  INI ,  AND  THIS  IS  ACCOMPLISHED  VIA  FOR00740 
A  CALL  TO  DEFINEP.  IF  IT  WAS  NECESSARY  TO  CREATE  THE  F0R00750 
CATALOGUE  ENTRY  THEN  THE  APP05I2)  POINTER  SLOT  OF  DATAFOR00760 
IS  UPDATED  TO  POINT  TO  IT.  THE  PROCEDURE  THEN  CHAINS  FOR00770 
THE  OCCURRENCE  OF  DATA!  INTO  THE  SDDSET,  AND  UPDATES  FOR00780 
THE  AP_P0S(1)  POINTER  SLOT  WITHIN  THE  BEU  CONTAINING  FOR00790 

DAT  A 1  SO  THAT  IT  POINTS  TO  THE  OCCURENCE  OF  DATA2.  FOROOBOO 

6)  IF  THE  BSET  IS  M-N  THE  FOLLOWING  STRATEGY  IS  FOLLOWED:  FOROOSIO 

A )  I T  FIRST  CHECKS  TO  SEE  IF  THE  AP  P0S(1)  POINTER  SLOT  FOR00820 
IN  DA T A 1 ,  IS  NULL  OR  NOT.  IF  IT  IS  THEN  IT  CALLS  FOR00830 

DEFINEP  TO  CREATE  A  SUBSET  WITHIN  THE  PSET  I  DENT  I F 1 EDFOR00840 
BY  MN.NAME  ANO  WHICH  ACTS  AS  A  l I NK  SET  BETWEEN  FOROOBSO 

OOMAINI  ANO  D0MAIN2.  IT  THEN  UPDATES  THE  AP_P0S(1)  FOR00B60 

POINTER  SLOT  SO  THAT  IT  POINTS  TO  1  HE  SUBSET  FOR00870 

CATALOGUE  DEFINITION.  FOR00880 

B)  I T  THEN  CREATES  AN  ENTRY  IN  THE  SUBSET  OF  THE  LINK  FOR00890 

SET  VIA  A  CALL  TO  CREATEP  (NOTF  THIS  ALSO  CREATES  FOR00900 

AN  ENTRY  IN  THE  PRIMARY  LINK  SET  PSET.  FOR00910 

C)  I T  THEN  CALLS  GET  D0MAIN2  WHICH  EITHER  FINDS  AN  FOR0O920 

ELIGIBLE  OCCURENCE  OF  DATA2  IN  00MAIN2  OR  IT  CREATES  FOR00930 
A  NEW  OCCURENCE,  ANO  IN  ANY  EVENT  RETURNS  A  POINTER  FQR00940 


*****  TO  THE  OCCURENCE  OF  DAT A2 . 

•••*•  0) THE  FINAL  TASK  IS  TO  CHAIN  THE  NEWLY  CREATEO  ENTRY 

*****  IN  THE  LINK  SET  SUBSET  WITH  DATA!  AND  DAT A2 .  THE 

*****  A  P_POS ( 1 )  POINTER  SLOT  OF  THE  ENTRY  IS  UPDATED  TO 

•«•*•  POINT  TO  THE  OCCURENCE  OF  DATA1 ,  AND  THE  AP_P0S(2) 

*****  POINTER  SLOT  IS  UPDATED  TO  POINT  TO  THE  OCCURENCE 

*****  OF  0ATA2.  FINALLY,  THE  AP  P0S(2)  POINTER  SLOT  OF  THE 

*****  BEU  CONTAINING  DAT A2  IS  UPDATED  TO  POINT  TO  THE 

**•••  CATALOGUE  ENTRY  FOR  THE  MN_NAME  PSET. 

***** 

*****  INPUT  PARAMETERS: 

*****  B_SET-  NAME  OF  A  PREVIOUSLY  DEFINED  BINARY  SET 

*♦•♦•  ID)  -  A  POINTER  WHICH  IS  EITHER  NULL  OR  POINTS 

*****  TO  AN  OCCURENCE  OF  OAT  A  1 . 

*****  DATA1-  A  PREVIOUSLY  CREATED  ELEMENT  WITHIN  D0MAIN1 

*****  NOTE:  IF  IDT  IS  NOT  NULL,  DATA  1  IS  DISREGARDED, 

•••••  DATA2-  AN  ELEMENT  WITHIN  D0MA1N2  WHICH  EITHER  EXISTS 

*****  OR  IS  TO  BF  CREATED  BY  THIS  PROCEDURE. 

*****  ID2  -  NOT  SIGNIFICANT  ON  INPUT 


*****  OUTPUT  parameters: 

•••••  102  -  A  POINTER  WHICH  POINTS  TO  THE  OCCURENCE  OF  DATA2 


WHICH  WAS  LINKED  TO  DATA  1 , 


*****  PROCEDURES  INVOKED: 

*****  Ofc  INEP,  CREATEP,  SEARCH,  FETCH,  GET_DOMAI N2  (INTERNAL) 


X  INCLUDE  B5ET  C AT ;****«**♦•**»«•**•***••■ 
/•  BSET_CAT  TEMPLATE  «/ 

DCL  BASE  aiT(320). 

1  BSET  _CAT  DEFINED  (BASE), 
2  SET  NAME  B I T ( 64 ) , 

2  00MAIN_1NF0(2) , 

3  NAME  B I T( 64 )  , 

3  AP  POS  BIT(B), 
2  TYPE  B I T ( 0 )  , 

2  SUB  10  BIT(B), 

2  MN.NAME  BIT (64); 


/*  USED  FOR  BEU  OVERLAY  •/ 

/*  NAME  OF  BSET  */ 

/*  DOMAIN  information  */ 

/*  NAME  OF  DOMAIN  */ 

/»  PTR  SLOT  USED  FOR  LINK  */ 
/*  TYPE  OF  BSET  •/ 

/*  PTR  SLOT  FOR  SUBSET  LINK  */ 
/*  NAME  OF  M  TO  N  LINK  SET  */ 


X  INCLUDE  PSETCAT;' 


FOR00950 
FOR00960 
FOR00970 
FOR00980 
FOR00990 
FOROIOOO 
FOROIOIO 
F0R0I020 
FOR01030 
FOR01040 
FOR01050 
FOR01060 
F0R01070 
FOROIOBO 
FOR01090 
FOROI 100 
F0R01 1 tO 
FOROI 120 
FOROI 130 
FOROI 140 
FOROI 150 
FOROI 160 
FOROI 170 
FOROI 1  BO 
FOROI 190 
FOR0I20O 
FOR01210 
FOROI 220 
FOROI 230 
F0R01240 
FOROI 250 
CB  00010 
CB  00020 

*CB  00030 
BCA00020 
BCA00030 
BCA00040 
BCA00050 
BCA00060 
BCA00070 
BCA00080 
BCA00090 
BCA00100 
BCA001 10 
CB  00030 

.rn  nnnan 


/«  PSET.CAT  TEMPLATE  */  BCA00130 

DCL  1  CAT_ENTRY  BASED(P),  /•  BASED  ON  ID  OF  PSET  CAT  BEU  */  BCA00140 
2  LENGTH  FIXED  BIN(IS),  /•  LENGTH  OF  CAT  ENTRY  •/  BCA001S0 
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r 


2  P_AR  RAY (16)  POINTER,  /•  PTR  ARRAY  FOR  LINKING  •  /  BCA00160 

2  DATA,  /•  INFO  ON  PSET  ORGANIZATION  */  BCA00170 

3  NAME  B I T ( 64 ) ,  /*  NAME  OF  PSET  */  BCAOOIBO 

(  3  SP_MAP,  /•  MAP  OF  POINTER  ARRAY,  •/  BCA00190 

3  AP^MAP  )  8  f  T( 16)  ,  /»  GIVING  STATUS  OF  P_SLOTS  */  BCA00200 

3  NUMFREE  BIT(8),  /♦  NOT  USED  •/  BCA00210 

3  SEARCHINFO ,  /•  LINKAGE  INFORMATION  */  BCA00220 

(  4  L_T YP£  ,  /*  TYPE  OF  LINK  (HASHED  ETC .  .  )»/BCA00230 

4  L_PQS 1 ,  /*  PIR  SLOT  USEO  FOR  CHAINING  */BCA00240 

4  L_POS2,  /*  ADDITIONAL  PTR  SLOT  FOR  LINK  •/BCA00250 

4  KEY_POS,  /*  STARTING  POSITION  OF  KEY  •/  BCA00260 

4  KEY  LEN  )  BIT(8),  /•  LENGTH  OF  KEY  •/  BCA00270 

3  SET_TYPE.  /*  SET  TYPE  INFO  */  BCA0O2B0 

(  4  SUBSET,  /*  IF  PRIMARY  OR  SUBSET  */  BCA00290 

4  SUBSET.ID,  /*  PTR  SLOT  FOR  SUBSET  LINK  •/  BCA00300 

4  P_CHA I N ,  /*  PTR  SLOT  PTS  TO  PRIMARY  DCL*/BC A003 1 0 

4  S_CHA I N  )  BIT(B) ,  /.  SUBSET  DCL  CHAIN  •/  BCA00320 

3  DATA_LEN  BI T ( 15) ;  /•  LENGTH  OF  ELEMENTS  •/  BCA00330 

•*••*•••••••*•*••  CB  00040 

/•  BEU  TEMPLATE  •/  CB  00050 

410  OCL  t  T  ELEMENT  BAS£0( ID) ,  CB  00060 

2  LENGTH  FIXED  8IN(15).  CB  00070 

.  2  P  ARRAY(IB)  POINTER,  CB  00080 

M  2  INFO,  CB  00090 

00  3  DATA  BIT(320):  CB  00100 

5  1  0  DCL  (p  CAT , B_CA T )  BIT(64)  STATIC  EXTERNAL;  CB  00110 

1  XINCLUDE  BSETSYM;** •*•...♦**•••*•»****♦•**•*«»•«••*•***•*•*••••••••*•*. CB  00120 

/•  BSET  LINK  TYPES  */  BCA00480 

6  1  0  DCL  A1_TU_1  8 1 T ( 8 )  IN  I T( ’ 0000000 1  ' B) ,  BCA00490 

A 1 _ 1 0_  N  BIT(B)  1NIT( 1 000000 1 0 ' B ) ,  BCA00500 

N_T0_1  8IT(8)  INIT( *00000100 ’B),  BCA00510 

M_TO_N  BI T ( B)  INIT ( '00001000 'B) ;  BCA00520 

«••*•••*•***«**••  CB  00120 

XINCLUDE  IDS1 ;...«.«....»*.♦•***».**».*.**»...****♦•*****•**••*•*••*•*. CB  00130 
/*  POINTER  STACK  RETURNED  BY  SEARCH  •/  BCA00420 

7  1  0  DCL  1DS1  PTR  EXTERNAL  CONTROLLED;  BCA00430 

CB  00130 

XINCLUOE  INFOUND; ♦*  »«***»****♦***»*»**•*»*******•*•*••* 00140 
/*  DATA  STACK  RETURNED  BY  FETCH  */  BCA00450 

a  1  0  DCL  INFO  NO  BIT ( 320 )  EXTERNAL  CONTROLLED;  BCA00460 

•••••••*•••*•».**  CB  00140 

/•  PROCEDURES  CALLED  */  CB  00150 

XINCLUOE  EDEF INP ;..*...♦*♦*»*•**«...•♦***♦***•**•*••••* *..»CB  00160 

/*  DEFINE  PSET  MOOULE  •/  BCA00590 

910  OCL  DEFINEP  ENTRY(BIT(64),BIT(8),B1T(8),BIT(0),BIT(8),  BCA00600 

BIT(8) ,BIT(8) .POINTER)  ;  BCA00610 

•**•••*•*.»•***»*  CB  00160 

XINCLUDE  ECREATf ; <*..**..*..«*•«*..»«.*•*****•*•*••**••*•*•*•**•*•• ****CB  00170 
•  CREATE  PSET  MODULE  •/  BCA00630 


10  1  0  OCl  CREATEP  £NTRY( B1 T ( 64 ) , Bl T ( 320 ) .POINTER); 


X INCLUDE  EFETCH; ******♦*•♦♦••«♦♦**•******•*•***••*•• *••*•*••***••• 

/*  FETCH  PSET  MODULE  ♦/ 

11  1  0  OCL  FETCH  ENTRY ( BI T ( 2 )  , PO I  NT ER , BI T ( 64 ) , BI T< 64 ) , BI T( 1 ) ) { 

X INCLUDE  E SEARCH ;***•**♦•»♦•»••**«***♦»•***•*•***•«*•*•*•***••*•** 

/«  SEARCH  MODULE  */ 

12  1  0  DCL  SEARCH  ENTR Y ( BI T ( 2 ) . B I T ( 64 ) , B I T ( 64 ) . P01 NTE« . POI NTER ) $ 


/•  MISC  PTR  VARIABLES  */ 

13  1  0  OCL  IOXX  PTR  CTL ; 

14  1  0  DCL  ( ID, ID_POS. ID2A, ID1 , ID2, I0_CAT(2))  POINTER  5 

15  1  0  DCL  IDINIT  POINTER  INIT (NULL(  ) )  ,  ( D ATA1 . OAT A2 )  BIT(*), 

B_SET  BIT (64 ) ,  d  FIXEO  BIN(15),dB  BIT(16); 

/«  GET  BSET  _CAT  ENTRY  FOR  BSET  »/ 

16  1  0  CALL  FETCH! 'Ol'B, IDINIT, B_CAT.B_SET,'1'B); 

17  1  0  8ASE= Info  no; 

18  1  o  free  infond: 

£>  /*  GET  ID  OF  INSTANCE  OF  DOM A  INI  IF  NOT  SUPPLIED  */ 

00  19  10  IF  I D 1 -NULL (  ) 

CD  THEN  DO; 

'  20  1  1  CALL  SEA RCH( 1 0 1 ' B, BSET_CAT ,NAME( 1 ) ,DATA1 , IDXX, ID  POS), 

21  1  1  IF  ALLOC ATION( I0S1 )«0 

THIN  DO; 

22  1  2  PI  T  SKIP  EDIT(‘DATA1  NOT  FOUND  IN  D0MAIN1 ' ) 

(A); 

23  1  2  RETURN; 

24  1  2  END; 

25  1  1  ID1>IDS1; 

26  1  1  FREE  IDS1; 

27  1  1  END; 

/*  SELECT  ON  BSET  TYPE  */ 

28  1  0  SELECT(BSET_CAT.TYPE); 

29  1  1  WHEN(A1_T0_1 ) 

DO: 

/•  ESTABLISH  INSTANCE  OF  D0MAIN2  */ 

30  1  2  ID2*GET_D0MAIN2(BSET_CAT .NAME (2) ,BSET  CAT. NAME! 2) .0ATA2, 

AP_POS ( 2 ) ) ; 

/*  CHAIN  ACCORDINGLY  */ 

31  1  2  ID1->T_ELEMENT . P_ ARRAY ( AP_POS ( 1 ) ) > 1 D2 ; 

32  1  2  ID2->T_ELEMENT.P  ARRAY! AP_POS ( 2) ) » I D1 ; 

33  1  2  END,* 


BCA00640 
CB  00170 
CB  001B0 
EFE0001 0 
EFE00020 
CB  00180 
CB  00190 
BCA00700 
BCA00710 
BCA00720 
CB  00190 
CB  00200 
CB  00210 
CB  00220 
CB  00230 
CB  00240 
CB  00250 
CB  00260 
CB  00270 
CB  00280 
CB  00290 
CB  00300 
CB  00310 
CB  00320 
CB  00330 
CB  00340 
CB  00350 
CB  00360 
CB  00370 
CB  00380 
CB  00390 
CB  00400 
CB  00410 
CB  00420 
CB  00430 
CB  00440 
CB  00450 
CB  00460 
CB  00470 
CB  00480 
CB  00490 
CB  00500 
CB  00510 
CB  00520 
CB  00530 
CB  00540 
CB  00550 
CB  00560 
CB  00570 
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34 

1 

1 

WHEN) A1  T0_N) 

CB 

00580 

DO; 

CB 

00590 

/•  IF  FIRST  ELEMENT  IN  SUBSET.  DEFINE  SUBSET,  ANO  CHAIN  TO 

CB 

00600 

INSTANCE  OF  DOMAIN  1  */ 

CB 

00610 

35 

1 

2 

IF  ID  1 ">T  ELEMENT. P_ARRAY(AP_POS(l))«NULL<)  THEN 

CB 

00620 

DO; 

CB 

00630 

36 

1 

3 

CALL  DEF INEP(BSET_CAT.NAME(2) , '000001 00' B, '0 'B, 

CB 

00640 

'O' 3.  1 0 ' B, 1 1 ' B,SUB_ID, 1D_CAT( 2)); 

CB 

00650 

37 

1 

3 

ID1->  r_EL£MENT . P_ARR AY ( AP_POS( 1 )  )»ID_CAT(2); 

CB 

00660 

36 

1 

3 

END; 

CB 

00670 

CB 

006110 

/.  OTHERWISE  SET  10  CAT<2)  TO  PT  TO  SUBSET  CAT  ENTRY  */ 

CB 

00693 

39 

1 

2 

ELSE  1 0_CA T ( 2 ) « 1 0 1 ->T_E  LEMENT . P_ARR  A Y ( AP_POS(  1  ) ) } 

CB 

00700 

CB 

00710 

/•  ESTABLISH  INSTANCE  OF  DOMAIN  2  •/ 

CB 

00720 

40 

1 

2 

ID2  =  GET  DOM  A IN2( BSET_CAT .NAME ( 2 ) , ID  CAT(2)->CAT_ENTRY .NAME, 

CB 

00730 

DAT  A2 , AP_POS ( 2 ) ) ; 

CB 

00740 

CB 

00750 

/*  CHAIN  ACCORDINGLY  «/ 

CB 

00760 

41 

1 

2 

ID2-> T .ELEMENT . P  ARRAY ( AP.POS (2))>ID1 ; 

CB 

00770 

42 

1 

2 

ENO; 

CB 

00780 

CB 

00790 

43 

1 

1 

WHEN(N  TO  1) 

CB 

00800 

DO; 

CB 

008 1 0 

CB 

00820 

/»  ESTABLISH  INSTANCE  OF  OOMAIN  2,  CREATING  ELEMENT  IF 

CB 

00B30 

NECESSARY.  102  IS  SET  TO  PT  TO  INSTANCE  OF  D0MAIN2  •/ 

CB 

0CB40 

44 

1 

2 

CALL  SEARCH  < ' 01 ' B , BSET.CAT . NAME ( 2 ) . DATA2 , IDXX, I D_POS) ; 

CB 

00850 

45 

1 

2 

IF  AL  LOC AT  I 0N( 1051 )=  0 

CB 

00800 

THEN  CALL  CREATEP(BSET_CAT.NAME(2),DATA2.ID2); 

CB 

00870 

46 

1 

2 

ELSE  00; 

CB 

00880 

47 

1 

3 

I02=I0S1 ; 

CB 

00890 

48 

1 

3 

FREE  I0S1; 

CB 

00900 

49 

1 

3 

ENO; 

CB 

00910 

CB 

00920 

/•  IF  FIRST  SUBSET  ENTRY.  DEFINE  SUBSET  AND  CHAIN  TO  INSTANCE 

CB 

00930 

OF  DOMA IN  2  */ 

CB 

00940 

50 

1 

2 

IF  ID2->T  ELEMENT . P_ ARRAY ( AP_POS( 2 )  ) «NULL ( )  THEN 

CB 

00950 

DO; 

CB 

00960 

51 

1 

3 

CALL  DEFINEP(DOMA IN  INFO . NAME ( 1 ),' 000001 00 ' B ,* 0 ' 8. *0 '  B, 

CB 

00970 

'O'  8. ’ 1 'B.SUB.ID, ID  CAT(1)>; 

CB 

00980 

52 

1 

3 

I 02->T_E LEMENT. P_ARRAY(AP_P0S(2))»ID  CAT( 1); 

CB 

00990 

53 

1 

3 

END; 

CB 

01000 

CB 

01010 

/•  CHAIN  INSTANCE  OF  DOMA INI  INTO  THE  SUBSET  POINTED  TO 

CB 

01020 

BY  THE  INSTNACE  OF  DOMAIN  2  */ 

CB 

01030 

54 

1 

2 

101 ->T .ELEMENT . P_ ARRAY ( SUB. I D ) * I02->T  ELEMENT. P_ARRAY( 

CB 

01040 

AP  _POS (2) )->T_ELEMENT.P  ARRAY! SUB~ID) ; 

CB 

01050 

55 

1 

2 

ID2->T. -LEMENT. P.ARRAY ( AP.POS ( 2) )->T  ELEMENT. P_ARRAY( 

CB 

01060 

SUB_ID )* 101 


I 


56 

57 

58 


59 

60 

61 

62 


63 


64 

65 


66 


67 


66 


69 

70 

71 

72 

73 


1  2 

1  2 
1  1 


1  2 

1  3 

1  3 

1  3 

1  2 

1  2 
1  2 

1  2 

1  2 

1  2 

1  2 

1  2 

1  1 
1  1 
1  0 


SUB  ID )* 101 ; 

ce 

01070 

CB 

01080 

/*  CHAIN  INSTANCE  OF  D0MAIN2  TO  OOMAIN  1  */ 

CB 

01090 

ID1 ->T  ELEMENT. P.ARRAY (AP_POS( 1 ) ) -  1 02 ; 

ca 

01100 

CB 

01 1 10 

END; 

CB 

01120 

WH£N(M  TO  N) 

CB 

01130 

DO; 

CB 

01140 

CB 

01150 

/♦  IF  F.RST  ELEMENT  IN  DOMAIN  2  TO  BE  LINKED  TO  INSTANCE  OF 

CB 

01  160 

OOMA iN  1 .  THEN  DEFINE  LINK  SET  SUBSET  AND  CHAIN 

TO 

INSTANCE 

CB 

01170 

OF  DOMAIN  1  ,  SET  ID_CAT(2)  TO  PT  TO  CREATED  CAT 

ENTRY  •/ 

CB 

oi  ieo 

IF  ID1->T  ELEMENT. P_ARRAY(AP_P0S(1 ) )«NULL( )  THEN 

CB 

01190 

DO; 

ca 

01200 

CALL  DEF1NEP(MN_NAME, '00000100 'B, 'O'B.'O'B.'O* 

B.* 

1*8. 

CB 

01210 

SUB  ID , I D_CAT ( 2 ) ) ; 

CB 

01220 

ID1->T  ELEMENT. P.ARRAY ( AP_POS ( 1 ))-ID  CAT(2); 

CB 

01230 

END; 

CB 

01240 

CB 

01250 

/•  OTHERWISE  SET  ID_CAT(2)  TO  PT  TO  EXISTING  SUBSET 

CAT  ENTRY*/CB 

01260 

ELSE  IO_CAT (2)>I01->T_ELEMENT .P_ARRAY(AP  POS ( 1 ) ) I 

CB 

01270 

CB 

01280 

/*  CREATE  INSTANCE  OF  LINK  SET  ELEMENT  */ 

CB 

01290 

U=J+1  ; 

CB 

01300 

CALL  CREATE P(ID_CAT (2 )->CAT^ENTRY. NAME, ,0'B,I02A); 

CB 

01310 

CB 

01320 

/«  SET  PTR  SLOT  IN  LINK  SET  ELEMENT  TO  PT  TO  INSTANCE 

OF 

CB 

0)330 

OF  DOMAIN  1  */ 

CB 

01340 

102A-M  ELEMENT . P_ ARRAY ( AP_POS( 1 ) )= ID1 ; 

CB 

01350 

CB 

01360 

/«  ESTABLISH  INSTANCE  OF  DOMAIN  2  */ 

CB 

01370 

I D2=GET_D0M A IN2 ( BSET.CA T . NAME ( 2 ) , BS  ET  CAT . NAME ( 2 ) . DATA2 , 

CB 

01380 

AP_POS (2) ) ; 

CB 

01390 

CB 

01400 

/*  SET  PTR  SLOT  IN  LINK  SET  ELEMENT  TO  PT  TO  INSTANCE 

OF 

CB 

01410 

OF  DOMAIN  2  */ 

CB 

01420 

ID2A->T_ELEMENT.P  ARRAY ( AP_POS ( 2 ) ) *  I D2 5 

CB 

01430 

CB 

01440 

/•  SET  PTR  SLOT  IN  INSTANCE  OF  DOMAIN  2  TO  POINT  TO 

PRIMARY 

CB 

01450 

CAT  ENTRY  FOR  LINK  SET  •/ 

CB 

01460 

ID2->T_ ELEMENT. P  ARRAY( AP_POS ( 2 ) ) * l D_CAT(2 )->T  ELEMENT 

CB 

01470 

P_ARR A Y ( ID_CAT ( 2 ) ->P_CHA IN) ; 

CB 

01480 

END; 

CB 

01490 

CB 

01500 

OTHERWISE  PUT  SKIP  EDIT ( ' ERROR  TYPE  INCORRECT  1 ) (A) I 

CB 

01510 

END: 

CB 

01520 

RETURN; 

CB 

01530 

CB 

01540 

*  *  « 

CB 

01550 

Tifrtr  ft/Tiii!-  ■■at1" 


291 


r 


p 


74  1  0  GET  D0MAIN2:  PROC ( N AME2 , N AME2 A , OAT A2 , AP_PQS )  RETURNS( PO INTER) ;  CB 

CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 
CB 


75  2  0 


76  2  0 

77  2  0 


78  2  0 


THIS  MODULE  IS  RESPONSIBLE  FOR  ESTABLI 
INSTANCE  OF  DOMAIN  2.  IT  MAY  EITHER  FI 
WHICH  IS  AVAILABLE,  OR  IT  WILL  CREATE 
NAME2  CORRESPONDS  TO  THE  PSET  IT  SHOUL 
EXISTING  OCCURENCE,  NAME2A  IS  THE  PSET 
SHOULD  Bt  IISERTEO  IF  CREATED,  DATA2  I 
INSTNACE ,  /NO  AP_POS  CORRESPONDS  TO  TH 
PTR  SLOT  II  INSTANCES  OF  OOMAIN  2.  A  N 
IF  EITHER  AN  EXISTING  OCCURENCE  ISN'T 
IS  FOUND,  BUT  THE  PTR  SLOT  IS  ALREADY 
ELEMENT  IS  ALREADY  IN  THE  SET. 


SHING  THE  APPROPRIATE 
ND  AN  EXISTING  OCCURENCE 
A  NEW  OCCURENCE. 

D  SEARCH  FOR  AN 
INTO  WHICH  THE  ELEMENT 
S  THE  VALUE  OF  THE 
E  BSET'S  ALLOCATED 
EU  ELEMENT  IS  CREATED 
FOUND.  OR  AN  OCCURENCE 
FULL,  MEANING  THAT  THE 


DC L  ( NAME 2 A , NAME 2 )  BIT(64),  DAT A2  BIT(*).AP  POS  BIT ( 6 ) , 
1D2  POINTER; 

/•  SEARCH  PSET  NAME2  FOR  ANY  OCCURENCES  OF  0ATA2  •/ 

CALL  SEARCH(  '  10‘B, NAME2 , DAT A2 , IDXX , I D  POS); 

ID2«NULL< ) ; 

/•  FOR  EACH  OCCURENCE  FOUND  */ 

DO  WH I LE ( AL  LOCAT I  ON ( I OS  I  ) } ; 


79  2  1 


00  2  1 


01  2  1 


82  2  1 

83  2  1 


84  2  0 


/•  IF  1  TO  1  THEN,  THEN  THE  PTR  SLOT  IN  DOMAIN  2  MUST  BE 
NULL  IN  ORDER  FOR  IT  TO  BE  USED.  IF  MORE  THAN  ONE 
OCCURENCE  THEN  USE  FIRST  THAT  IS  ACCEPTABLE  •/ 

IF  T  PE=A1_T0_1 

THEN  tF(IDS1->T_ELEMENT.P_ARRAY(AP  POS)*NULL() 

&  I 02=NUL  L ( ) ) 

THEN  I02»IDS1; 

ELSE; 

/*  OTHERWISE,  IF  PTR  SLOT  IS  NULL ( )  OR  (IN  THE  CASE  OF  A 
M  TO  N  )  IF  THE  PTR  SLOT  POINTS  TO  THE  PRIMARY  SET  CAT 
ENTRY  FOR  THE  LINK  SET  ,  THEN  USE  IT  */ 

ELSE  IF  (  1  OS  1 ->T_ELEMENT . P_ ARRAY ( AP  POS)*NULL()  { 
IOSI->T_E LEMEN T . P_AR RAY{ AP_POS ) a I D  CAT(2)->T  ELEMENT. 
P_ARRAY( I 0_CAT ( 2 ) “> P_CHAIN ) )  4 
I D2-NULL ( ) 

THEN  I02=IDS1 ; 

FREE  IDS1; 

END; 

/•  IF  NO  ACCEPTABLE  INSTANCES  WERE  FOUND,  CREATE  ONE  IN  THE 
NAME2A  PSET  */ 

IF  ID2  =  N'JLL()  THEN 

C  *  LL  CREATE P( NAME 2 A ,0ATA2,I02); 


01560 
01570 
015B0 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
0 1 660 
01670 
016B0 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
0  1  820 
01830 
01840 
01B50 
01860 
01870 
0 1  880 
01B90 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 


0 

0 


RETURN( 102)  { 
END  0ET_D0MAIN2; 


CB  02050 
CB  02060 
CB  02070 
CB  02080 


0  END  CREATES; 


XINCLUDE  SELECTF; •*•••*•*••**••»**♦•***•*•••••*•••••** *••*•*  ****** ****SF  00010 
/•.•«•••«•«*««*.•«•••••••••••••*•••***•**•»••••**»•*•»* •••f .«••*••*»  SEL0001 0 

•  *  SEL00020 

•  MODULE  DESCRIPTION  •  SEL00030 

SEL00040 

0  SELECTF!  SEL00050 

PROCEDURE!  MODE.  /«  BIT<2)  */  SEL00060 

101 ,  /*  PTR  »/  SEL00070 

NAME1,  /♦  BIT(64)  */  SEL00080 

DATA1 ,  /«  BI T( 320)  */  SEL00090 

I D2  );  /*  PTR  »/  SE  LO0 100 

/•***•*•»••••••**.*  «**.*»•*»*•••»•••*•***«»•••«••*•••••••••**•••»••**  SE  LO0 1 10 

*****  PURPOSE:  SE  LO0 1 20 

*****  THE  PURPOSE  OF  THIS  MODULE  IS  RETRIEVE  DATA  ITEMS  SEL00130 

*****  WHICH  ARE  LINKED  WITHIN  THE  BINARY  ASSOCIATION  SET  SEL00140 

•  *«»«  SPECIFIED  BY  NAME  1  TO  THE  OCCURENCE  OF  THE  DATA  ITEM  SEL00150 

•  •*••  POINTED  TO  BY  ID1,  OR  TO  THE  DATA  ITEM  SPECIFIED  BY  SEL00160 

*••»«  DAT  A  1  .  IT  RETURNS  AN  EXTERNAL  STACK  OF  DATA  VALUES  SEL00170 

*****  WHICH  CORRESPONDS  TO  ALL  OF  THE  ELEMENTS  LINKED  IN  SEL001B0 

•  «*.*  THE  BINARY  ASSOCIATION  SET  WITH  DAT A1 .  SEL00190 

*«•»*  SEL00200 

**•'•••••••*••»••*•*»*.»,*.»*.»**.**.*****»**•»•«**»,*••**•••*••»»»*«  SEL00210 

•  ••*•  METHOD:  SEL00220 

•••♦•  1)  FIRST  FETCHS  THE  BSET_CAT  ENTRY  FOR  NAME1  SEL00230 

*****  2)  IF  IDl  IS  NULL  IT  CALL  SEARCH  USING  NAME ( 1 )  SEL00240 

*«••*  FROM  BSET.CAT  AS  THE  PSET  AND  DAT  A 1  AS  THE  SEL00250 

•  •*••  KEY  INTO  THE  PSET.  IF  NO  VALUE  IS  FOUND.OR  SEL00260 

•••••  IF  THE  POINTER  SLOT  ALLOCATED  TO  THIS  BINARY  SEL00270 

•  *•««  ASSOCIATION  IS  NULL (  )  THE  MODULE  RETURNS.  SEL00280 

*♦•••  3)  HAVING  ESTABLISHED  THE  OCCURENCE  OF  A  DATA  SEL00290 

VALUE  IN  DOMAIN  1  IT  PROCEEDS  TO  RETRIEVE  SEL00300 

*****  THE  ASSOCIATED  ITEMS  IN  DOMAIN  2.  THE  LOGIC  SEL00310 

•♦*•*  OF  THE  RETRIEVAL  DEPENDS  ON  THE  TYPE  OF  BINARY  SEL00320 

*****  ASSOCIATION.  SEL00330 

•••«♦  1-1  OR  N-1  RETRIEVES  SINGLE  VALUE  BY  CALLING  SEL00340 

•*•••  FETCH  AND  PASSING  IT  THE  POINTER  SEL00350 

•*•••  VALUE  CONTAINED  IN  POINTER  SLOT  SEL00360 

*****  AP  P0S(1>.  SEL00370 

«•••*  1-N  IN  THIS  CASE  THE  POINTER  SLOT  AP_POS  SEL00380 

*••♦«  (1)  CONTAINS  A  POINTER  TO  A  CATALOG  SE l 00390 

*****  ENTRY  FOR  THE  APPROPRIATE  SUBSET  WITHSEL00400 

*****  IN  DOM A l N  2  .  FETCH  IS  USED  TO  RETR  I EVESE L004 1 0 

*****  ALL  ELEMENTS  OF  THAT  SUBSET.  SEL00420 

•  «•♦*  M-N  IN  THIS  CASE  POINTER  SLOT  AP_POS( 1  )  5EL00430 

•••••  POINTS  TO  A  CATALOG  ENTRY  FOR  A  SUB-  SEL00440 

•••••  SET  WITHIN  THE  LINKAGE  SET  MN.NAME.  SEL00450 


OUTPUT  PARAMETERS: 


IT  CALLS  THE  SEARCH  MODULE  TO  FETCH  SEL00460 
POINTERS  TO  EACH  OF  THE  ELEMENTS  IN  SEL00470 
THAT  SUBSET,  AND  THEN  GOES  THROUGH  SEL004B0 
THE  POINTER  VALUE  CONTAINED  IN  AP_POSSE L00490 
(2)  TO  RETRIEVE  THE  ACTUAL  DATA  I TEMSSE L00500 
IN  THE  SECOND  DOMAIN  BY  PASSING  THAT  SEL00510 
POINTER  TO  FETCH  SEL00520 

SE 100530 
SE  100540 

INPUT  PARAMETERS:  SE l 00550 

t)  MODE  -  USED  TO  DETERMINE  HOW  MANY  DATA  SEL00560 

DATA  ITEMS  TO  FETCH:  SEL00570 

*01 1  -  FIRST  OCCURENCE  SEL00580 

*11’  -  ALL  OCCURENCES  SEL00590 

2)  101  -  PTR  VALUE  WHICH  CAN  BE  USED  TO  SEL00600 

IDENTIFY  DATA  ITEM  IN  DOMAIN  I.  IF  IT  SEL00610 

IS  NOT  NULL.  IT  IS  ASSUMED  TO  POINT  TO  SEL00620 

A  VALID  ITEM,  AND  THE  DATA  VALUE  SPECIFIED  SE100630 
BY  DATA1  IS  IGNORED.  SEL00640 

3)  NAME  1  “  THE  NAME  OF  THE  BINARY  ASSOCIATION  SEL00650 

THROUGH  WHICH  THE  LINK  IS  TO  BE  MADE.  IT  SEL00660 
MUST  CORRESPOND  TO  AN  EXISTING  B_SET  SEL00670 

DEFINITION  IN  THE  BSE  T  CAT.  SE100680 

4 |  OATAI  -  IF  10!  IS  NULL!)  DATA!  IS  USED  AS  SEL0OG90 

A  KEY  TO  ESTABLISH  THE  DESIRED  OCCURENCE  SEL00700 

OF  DOMAIN  1 .  SE  L 007 1 0 

S)  ID2  -  NOT  USED  ON  INPUT.  SEL00720 

SEL00730 

..•••MMttMMtttMttMMMMMMM  SEL00740 

SE l 00750 

YO  -  AN  EXTERNAL  CONTROLLED  STACK  OF  SE100760 
THINGS  BIT | 320)  WHICH  CORRESPONDS  TO  SEL00770 
ATA  ITEMS  FOUND  IN  DOMAIN  2  WHICH  SEL00780 


1)  1NF0_N0  -  AN  EXTERNAL  CONTROLLED  STACK  OF 
BIT  STRINGS  BIT (320)  WHICH  CORRESPONDS  TO 
THE  OATA  ITEMS  FOUND  IN  DOMAIN  2  WHICH 


ARE  LINKED  TO  THE  OCCURENCE  OF  DAT A1 .  NOTE  SEL00790 


INF0_ND  IS  CREATED  BY  THE  FETCH  MODULE 
WHICH  IS  INVOKED  BY  THIS  MOOULE. 

2)  102  -  PTR  VALUE  WHICH  POINTS  TO  LAST  DATA 
ELEMENT  FOUND  IN  DOMAIN  2. 


CALLS  PROCEDURES: 


FETCH,  SEARCH 


/•  PARAMETER  DECLARATIONS  »/ 

DCL  NAME1  B  I T (64 ) , DATA!  BIT(*).MODE  BIT(2),  FND  BIT(I); 


SEIOOBOO 
SE l 008 1 0 
SE100B20 
SEL00830 
SEL0O84O 
SEL00850 
SEL00860 
SEL00870 
SEL00880 
SEL00890 
SF  00010 
SF  00020 
SF  00030 
SF  00040 
SF  00050 


XINCLUDE  BSE  TCAT;  **•*«■*•♦«•«**  •****«•* 
/*  BSET  CAT  TEMPLATE  */ 

DCL  BASE  B  I T ( 320 ) , 

1  BSET  CAT  DEFINED  (BASE), 
2  SET_NAME  BI T(64) . 


/*  USED  FOR  BEU  OVERLAY  •  / 


2  D0MAIN_INF0(2) . 

3  NAME  B  1  T ( 64 ) , 

3  AP  POS  BIT(B). 
2  TYPE  BII(B)  , 

2  SUB_10  B I T ( 8  )  , 

2  MN_NAM£  BIT (64); 


SF  00060 
BCA00020 
BCA00030 
BCA00040 

/*  NAME  OF  BSET  •  /  BCA00050 

/*  DOMAIN  INFORMATION  •  /  BCA00060 

,  /•  NAME  OF  DOMAIN  •/  BCA00070 

).  /♦  PTR  SLOT  USED  FOR  LINK  */  BCA00080 

/•  TYPE  OF  BSET  •/  BCA00090 

/*  PTR  SLOT  FOR  SUBSET  LINK  •  /  BCAOOtOO 
/•  NAME  OF  M  TO  N  LINK  SET  */  BCA00110 

SF  00060 
••••SF  00070 
BCA00130 

/*  BASED  ON  ID  OF  PSET_CAT  BEU  •  /  BCA0OI4O 
/*  LENGTH  OF  CAT  ENTRY  •  /  BCA00150 

/*  PTR  ARRAY  FOR  LINKING  */  BCA00160 

/*  INFO  ON  PSET  ORGANIZATION  •/  BCA00170 


XINCLUDE  PSETCAT;* 

/*  PS£T_CAT  TEMPLATE  »/ 

OCL  1  CAT_ENTRY  BASEO(P), 

2  LENGTH  FIXED  BIM  15), 
2  P  ARRAY( 16)  POINTER, 

2  DATA  . 

3  NAME  BI T (64  )  , 

(  3  SP_MAP, 

3  APJVIAP  )  B  1 T (  16 
3  NUMFREE  BIT ( B ) , 

3  SEARCH  INFO, 


/•  NAME  OF  PSET  ♦/ 

/•  MAP  OF  POINTER  ARRAY,  •  / 


AP_MAP  )  B  I T ( 16)  ,  /•  GIVING  STATUS  OF  P_SLOTS  */ 


BCA001B0 

BCA00T90 

BCA00200 

BCA00210 

BCA00220 


/•  NAMES  OF  PSET  CAT  AND  BSET  CAT  PSETS  •/ 
DCL  ( P_CAT , B_CAT )  BIT(64)  STATIC  EXTERNAL; 


XINCLUDE  BSETSYM; •••♦**• 
/«  BSET  LINK  TYPES 
DCL  A1_T0_1  BIT( 
AT  TO_N  BI T ( 
N  TO  t  BI T ( 

M  TO_N  BI T ( 


XINCLUOE  IDS  1 ;•*♦•*•**♦•*«••••♦*••*•*•••***•*•« 
/«  POIF  TER  STACK  RETURNED  BY  SEARCH  •/ 


NUMFREE  BIT ( B) ,  /•  NOT  USED  •/  BCA00210 

SEARCH  INFO,  /*  LINKAGE  INFORMATION  •/  BCA00220 

(  4  L.TYPE,  /’  Type  OF  LINK  (HASHED  ETC .  .  ) »/BC A00230 

4  l_POS 1 ,  /*  PTR  SLOT  USED  FOR  CHAINING  */BCA0024 0 

4  L  P0S2 ,  /•  ADDITIONAL  PTR  SLOT  FOR  LINK  */BCA00250 

4  KEY_POS,  /*  STARTING  POSITION  OF  KEY  */  BCA00260 

4  KE Y_LEN  )  BIT(8),  /*  LENGTH  OF  KEY  ♦/  BCA00270 

SET_TYPE,  /*  SET  TYPE  INFO  */  BCA002B0 

(  4  SUBSET,  /*  IF  PRIMARY  OR  SUBSET  */  BCA00290 

4  SUBSET _ ID ,  /*  PTR  SLOT  FOR  SUBSET  LINK  •/  BCA00300 

4  P  CHAIN,  /•  PTR  SLOT  PTS  TO  PRIMARY  DCL*/BC A003 1 0 

4  S  CHAIN  )  B I T ( 8  )  ,  /.  SUBSET  DCL  CHAIN  */  BLA00320 

OATA_LEN  BIT(IG);  /*  LENGTH  OF  ELEMENTS  •/  BCA00330 

SF  00070 
SF  00000 

AND  BSET  CAT  PSETS  •/  SF  00090 

STATIC  EXTERNAL;  SF  00100 

SF  00110 

»***•**»***♦♦•••••*•• •••••♦••♦•••••••SF  00120 

BCA004B0 

•00000001 *B),  BCA00490 

•00000010 ’B),  BCAOOSOO 

•00000100 ' B) ,  BCA00S10 

•00001000 ‘B);  BCA00520 

SF  00120 
SF  00130 
00140 

BY  SEARCH  •/  BCA00420 


BIT(B)  IN1T( '00000001 *B), 
BIT ( 8 )  IN1T( '00000010 ’B) , 
BIT(B)  IN  I  T ( '00000100 ' B) , 
BIT(B)  IN  I  T (  ‘00001000 ' 8) ; 


I 

K) 

vD 

o> 

I 


7 

1 

0 

□CL  I0S1  PTR  EXTERNAL  CONTROLLED; 

BCA00430 

SF 

00140 

SF 

00150 

/«  PROCEDURES  CALLED  */ 

SF 

00160 

►  SF 

00170 

/*  FETCH  PSET  MODULE  •/ 

EFE00020 

8 

1 

0 

DCL  FETCH  ENTRY ( 01 T ( 2 ) , POINT ER , 0 I T ( 64) , Bl T ( 64 ) , BI T ( 1 ) ) ; 

EFE00030 

SF 

00170 

►  SF 

00180 

/•  SEARCH  MODULE  ♦/ 

BCA00700 

» 

1 

0 

DCL  SEARCH  ENTRY ( 01 T ( 2 ). 01 T ( 64 ), 0 I T ( 64 ). POINTER . POINTER) t 

BCA00710 

BCA00720 

SF 

00180 

SF 

00190 

/•  POINTERS  USEO  TO  POINT  TO  BEUS  •/ 

SF 

00200 

10 

1 

0 

DCL  ( 10. ID  1 . ID2, ID  CAT (2))  POINTER  , 

SF 

00210 

IDXX  PTR  CONTROLLED; 

SF 

00220 

/*  TEMPLATE  for  beu  interpretation  «/ 

SF 

00230 

1 1 

1 

0 

DCL  1  T  ELEMENT  BASEO(IDI), 

SF 

00240 

2  LENGTH  FIXED  0IN(1S), 

SF 

00250 

2  P  ARRAY(16)  POINTER, 

SF 

00260 

2  DATA  0  I T ( 320 ) , 

SF 

00270 

INFO  ND  BIT (320)  CONTROLLED  EXTERNAL; 

SF 

00280 

SF 

00290 

/*  FETCH  BSET  CAT  ENTRY  FOR  BSET.  ANO  SET  UP  BSET  CAT  STRUCTURE  •/ 

SF 

00300 

12 

1 

0 

1D*NULL( ) ; 

SF 

00310 

13 

1 

0 

CALL  FETCH!  * 0 1 1 0 . 1 0 , B_C AT , NAME  1 , ’ 1 ' 8 ) ; 

SF 

00320 

14 

1 

0 

BASE* INF0_ND; 

SF 

00330 

IS 

1 

0 

FREE  ITF0_ND; 

SF 

00340 

SF 

00350 

/•  IF  INST Al> CE  OF  DOMAIN  1  IDENTIFIED  BY  KEY,  GET  ID  OF  INSTANCE  •/ 

SF 

003G0 

16 

1 

0 

IF  ID  1  =NULL (  ) 

SF 

00370 

THEN  DO; 

SF 

00380 

17 

1 

1 

CALL  S EARCH ( '01 'B, BSET_C AT . NAM E ( 1 ) , DAT A1  ,  IDXX, 

SF 

00390 

I D_CAT ( 1 ) ) ; 

SF 

00400 

SF 

00410 

/*  IF  INSTANCE  FOUND  AND  IN  BSET  •/ 

SF 

00420 

18 

1 

1 

IF  ALLOCATION! IDS1 ) "*0  A 

SF 

00430 

I DS1->T_ELEMENT ,P_ARRAY( AP.POS! 1 ) )*«NULL( ) 

SF 

00440 

THEN  DO; 

SF 

00450 

19 

1 

2 

i  o i *  I ds 1 ; 

SF 

00460 

20 

1 

2 

FREE  IDS1; 

SF 

00470 

21 

1 

2 

ENO; 

SF 

00480 

SF 

00490 

INSTANCE  NOT  FOUND  OR  NOT  IN  BSET  */ 

SF 

00500 

22 

1 

1 

ELSE  DO; 

SF 

00510 

23 

1 

2 

IF  ALLOCATION! IDS1 )“  *0  THEN  FREE  I0S1 1 

SF 

00520 

24 

1 

2 

RETURN; 

SF 

00530 

25 

1 

2 

ENO; 

SF 

00540 

297 


X  INCLUDE 

DEFIN£P;*«**»*»«»»***»»’ 

*  0  *  *  4 

I  *»*»»**  4 

/ . . 

►  *  *  *  4 

« 

MODULE  DESCRIPTION 

*  DE  F  00020 

*  *  *  ♦  i 

►  4 

OEFINEP: 

PROCEDURE 

DEF  00040 

(NAME  t . 

/♦ 

B I T ( 64  ) 

•/ 

DEF  00060 

l_typei , 

/* 

B I T ( 64  ) 

*/ 

DE  F  00060 

KEY  P0S1 , 

/* 

BIT ( 8 ) 

*/ 

DEF  00070 

KEY  LEN1 , 

/* 

BIT(B) 

*/ 

DE  F  00000 

lenT, 

/• 

B  I  T  (  1  6  ) 

*/ 

OE  F  00090 

SUBSET  1 , 

/* 

0 1  T  (  e  > 

*/ 

DEF00100 

S  ID!  , 

/* 

B  I  T  (  0  ) 

♦/ 

DEF  00 1 1 0 

P2 

/• 

POINTER 

♦/  ): 

OE  T00120 

purpose: 

THE  PURPOSE 
A  CATALOGUE 
THE  SYSTEM. 
A  SUBSET  OF 
CATALOGUE 


OF  THIS  PROCEDURE  IS  TO  CREATE 
OF  ALL  PRIMARY  SETS  AND  SUBSET 
EVERY  PSET  AND  SUBSET  (I.E.  A 
ANOTHER  PSET)  HAS  AN  ENTRY  IN 
THE  CATALOGUE  ENTRY  (SEE  CAT_EN 


PURPOSES: 
A)  IT 


B) 


SEVERA  L 

CONTAINS  INFORMATION  ON 
THE  PSET  IS  ORGANIZED  (I.E. 
ACCESS  METHOD,  HASHED,  B_ T R 

information  on  how  to  inter 

THE  CONTENTS  OF  THE  POINTER 
SLOTS,  AND  THEIR  STATUS  ( F R 
SERVES  AS  A  HEADER  TO  THE  P 
CONTAINS  A  POINTER  TO  THE  F 
THE  PSET.  OR  A  POINTER  TO  A 
SET  . 

HENCE,  THE  PURPOSE  OF  THIS  MODULE  IS  TO  CR 
CATALOGUE  ENTRY,  ALLOCATE  ANY  POINTER  SLOT 
TO  BE  USED  FOR  ORGANIZING  THE  PSET,  AND  CR 
SUPPORT  STRUCTURES  (I.E.  A  SCATTER  TABLE  . 


AND  MAINTAIN 
S  DEFINED  IN 
PSET  WHICH  IS 
THE  PSET 
TRY)  SERVES 


HOW 

THE 

EE,  LINEAR 
PRET 


C! 


EE  OR  ALLOCATED) 
SET.  IT  EITHER 
IRST  ELEMENT  IN 
N  INDEX  TO  THE 


EATE  THAT 
S  NECESSARY 
EATING  ANY 
IF  HASHED) 


METHOD: 

THE  OBJECTIVE  OF  THIS  MODULE  IS  TO  CREATE  AN  ENTRY  IN 
THE  P_CAT  PSET  WHICH  REPRESENTS  THE  P  CAT  CATALOGUE 
ENTRY  FOR  THE  PSET.  IN  ORDER  TO  ACCOMPLISH  THIS  IT  IS 
NECESSARY  TO  BUILO  A  TEMPORARY  ENTRY  CALLED  C AT_ENTRY 

which  is  then  inserted  into  the  p_cat  pset  via  the 
CREATEP  MODULE.  HENCE,  THE  CATALOGUE  ENTRY  IS  STORED 
WITHIN  A  BEU  WHICH  IS  AN  ELEMENT  WITHIN  THE  P_CAT  PSET. 
WHENEVER  THE  CATALOGUE  ENTRY  IS  REQUIRED,  THE  BEU  WHICH 


DE  F  00 1 30 
DE  T  00 140 
DE  F  00  I  50 
DE  F  00 1 60 
DE  F  00  I  70 
DE  F  00 1 80 
DE FOOT  90 
DEF  00200 
DEF  00210 
0EF00220 
DE  F  00230 
DE  F  00290 
DE  F  00250 
DE  F  00260 
DE  F  00270 
DEF002B0 
DE  F  00290 
DE  F  00300 
DEF 00310 
OEr00320 
DEF 00330 
DEF00340 
DE  F  00350 
DE  F  00360 
DET00370 
DEF  00380 
DE  F 00390 
DE  F  00400 
DE  F  004 1 0 
DEF00420 
DEF00430 
DEF  00440 
DEF00450 


.'"NTAINS  IT  IS  FETCHEO  AND  the  CAT_ENTRY  STRUCTURE  IS  DEF00460 

Ov  ERL A  10  ON  DATA  PORTION  OF  THE  BEU.  THE  FOLLOWING  0EF00470 

STRATEGY  IS  EMPLOYED  TO  CREATE  THE  CATALOGUE  ENTRY.  DEFOO40O 

A)  IF  THIS  IS  THE  FIRST  PSET  TO  HAVE  BEEN  DEFINED  IT  DEF00490 

IS  FIRST  NECESSARY  TO  CREATE  THE  P  CAT  PSET.  A  OEFOOSOO 

MODULE  CALLED  1N1T_P  (INTERNAL  TO  DEFINEP)  IS  DEF005I0 

RES  PONS  IDLE  for  THIS.  IN!T_P  ESSENTIALLY  CREATES  DEF00520 

A  BEU  WHICH  CONTAINS  THE  P_CAT  CATALOGUE  ENTRY  FOR  DEF00530 

THE  P_CAT  PSET. AND  THIS  BECOMES  THE  FIRST  ENTRY  IN  0EF0054Q 

The  P^CAT  PSET.  THIS  ENTRY  CONTAINS  INFORMATION  ON  DEFOOSSO 

HOW  THE  P  _C A  T  PSET  IS  TO  BE  ORGAN  1 ZED.  IN  ADDITION,  DEF00S60 

INIT_P  CREATES  A  SCATTER  TABLE  FOR  THE  P_CAT  PSET.  DEF00570 

B)  THE  NEXT  STEP  IS  TO  RETRIEVE  A  TEMPLATE  FOR  THE  NEW  OEFOOSBO 

CATALOGUE  ENTRY.  IF  THE  PSET  TO  BE  DEFINED  IS  A  SUB~  OEFOOS90 

SET  OF  ANOTHER  PSET,  THEN  A  POINTER  TO  THE  CATALOGUE  DEF00600 
ENTRY  FOR  THAT  PSET  IS  RETRIEVED  VIA  THE  SEARCH  0EF0C610 

ROUTINE.  OTHERWISE,  THE  SEARCH  ROUTINE  IS  CALLED  TO  0EF00620 
RETURN  A  POINTER  TO  THE  P_CAT  PSET  CATALOGUE  ENTRY.  0EF00630 
THE  OBJECTIVE  HERE  IS  THAT  IF  THE  PSET  IS  A  SUBSET  OF  DEF00G40 
ANOTHER  PSET  THEN  ITS  CATALOGUE  ENTRY  MUST  REFLECT  DEFOOGSO 

THE  ORGANIZATION  OF  THE  PSET  OF  WHICH  IT  IS  A  SUBSET.  DEF0OG6O 

C)  IN  EITHER  CASC.  THE  INFORMATION  IN  THE  BEU  POINTED  DEF00B70 

TO  eY  THE  POINTER  RETURNED  IN  (B)  IS  COPIED  INTO  A  OEFOOGBO 

A  TEMPORARY  STRUCTURE  CALLED  CAT  ENTRY.  DEF00690 

0)  IF  THE  PSET  BEING  DEFINED  IS  NOT _A  SUBSET  THEN  CAT_  0EF00700 

ENTRY  IS  MODIFIED  TO  REFLECT  THE  INFORMATION  PASSED  DEF00710 

TO  DEFINEP  VIA  THE  INPUT  PARAMETERS.  THE  INFORMATION  DEF00720 
INC  LUOES I  THE  NAME, THE  KEY  POSITION  AND  LENGTH  (BITS),  DEF0C730 
LENGTH  OF  THE  DATA  ELEMENTS,  AND  THE  LINK  TYPE  (  DEF00740 

HASHEO,  B_TREE,  OR  LINEAR).  DEPENDING  ON  THE  ACCESS  0EF00750 

METHOO  OR  LINK  TYPE  DESIRED  FOR  THE  PSET  IT  IS  ALSO  DEF00760 

NECESSARY  TO  ALLOCATE  POINTER  SLOTS.  IF  THE  ACCESS  DEF00770 

METHOD  IS  HASHING  VIA  A  SCATTER  TABLE  THEN  MAPSET  IS  DEFOO70O 
CALLED  TO  ALLOCATE  (I.E.  RESERVE)  A  POINTER  SLOT  DEF00790 

TO  BE  USED  FOR  OVERFLOW  CHAINING.  L  P0S2  IN  CAT _ENT RY  DEF00800 
IS  UPDATED  TO  RFFLECT  THE  POSITION  OF  THIS  PTR  SLOT.  DEF00810 
IF  A  B_TREE  IS  TO  BE  EMPLOY LD .MAPSET  IS  CALLED  TWICE,  DEF00820 

ONCE  t5  RESERVE  A  PTR  SLOT  TO  BE  USED  TO  CHAIN  LEFT  DEF00830 

DESCENOENTS,  ANO  ONCE  TO  RESERVE  A  SLOT  TO  BE  USED  TO  DEF00640 
TO  CHAIN  RIGHT  OESCENDENT S . L  POST  ANO  L.P0S2  ARE  UP"  DEF00B50 
DATED  ACCORDINGLY,  IF  A  SIMPLE  LINEAR  PTR  CHAIN  IS  DEF00860 

TO  BE  EMPLOYED  THEN  MAPSET  IS  CALLED  TO  RESERVE  A  0EF0087 0 

SINGLE  PTR  SLOT  TO  BE  USED  FOR  CHAINING  AND  L_P0S2  IS  DEFO0O8O 
UPOATEC  TO  REFLECT  THAT  POSITION,  DEF00890 

F)  IF  THE  PSET  TO  BE  OEFINEO  IS  A  SUBSET  OF  ANOTHER  PSET  DEF00900 
THEN  THE  LINK  TYPE  IS  REQUIRED  TO  BE  LINEAR.  IF  S  IDT  DEF00910 
(AN  INPUT  PARAMETER)  IS  0  THEN  MAPSET  IS  CALLED  TO  DEF00920 

RESERVE  A  POINTER  SLOT  TO  BE  USED  TO  CHAIN  THE  E LEM ENTSDE F 00930 
OF  THE  SUBSET  TOGETHER,  AND  THIS  VALUE  IS  BOTH  RETURNEDOEF 00940 


AND  PLACED  IN  CAT_ENTRY.S_ID.  IF  S  ID1  IS  NON-ZERO  DEF00950 

THEN  THE  S_I01  POINTER  SLOT  IS  ASSUMED  TO  BE  AVAILABLE  DEF00960 
FOR  SUBSET  CHA I N ING . ( SUBSE T S  ARE  USED  PRIMARILY  AS  A  DEF00970 
MEANS  OF  IMPLEMENTING  1 -N  BINARY  ASSOCIATIONS.  AS  DEF0C980 

A  RESULT  A  PRIMARY  PSET  MAY  CONTAIN  EXCLUSIVE  SUBSETS  DEF00990 

ALL  OF  WHICH  MAY  SHARE  A  COMMON  P1R  SLOT  FOR  CHAINING.  DEFOIOOO 
WHEN  THE  OEFINER  MODULE  DEFINES  A  1-N  OR  N-1  BSET.IT  DEFOIOIO 
CALLS  MAPSET  TO  RESERVE  A  PTR  SLOT  FOR  SUBSET  CHAI N ING. DE F 0 1 020 
WHEN  THE  CREATEQ  MODULE  CREATES  A  1-N  OR  N-1  BSE T  IT  DEF01030 
CALLS  DEF1NEP  TO  CREATE  ThE  APPROPRIATE  SUBSET  IF  DEF01040 

NECESSARY  AND  PASSES  IT  THE  VALUE  FOR  THE  S  ID.  )  DEF01050 

IN  ADD  I T I  ON .  IT  IS  NECESSARY  TO  MAINTAIN  A  CHAIN  OF  DEF01060 
ALL  OF  THE  SUBSET  DEFINITIONS  FOR  SUBSETS  WITHIN  A  DEF01070 

GIVEN  PSET.  AS  WELL  AS  HAVE  A  PTR  IN  EACH  SUBSET  DEF010B0 

CATALOGUE  ENTRY  WHICH  POINTS  TO  THE  PRIMARY  PSET  DEF0T090 

CATALOGUE  ENTRY.  TWO  PTR  SLOTS  ARE  ALLOCATED  FOR  THESE  DETOIIOO 

PURPOSES.  AND  THE  LOCATIONS  OF  THESE  SLOTS  ARE  CON-  UEF01110 

TAINEO  IN  S_CHA 1 N  AND  P_CHAIN  RESPECTIVELY.  IF  THIS  DEF01T20 

IS  THE  FIRST  SUBSET  TO  BE  DEFINED  WITHIN  THE  PRIMARY  DEF01130 
PSET  THEN  MAPSET  IS  CALLED  TWICE  TO  RESERVE  POINTER  DEF01140 

SLOTS  FOR  THIS.  AND  BOTH  THE  SUBSET  AND  PRIMARY  PSET  DE  F  0 1 1 50 

CATALOGUE  ENTRIES  ARE  UPDATED  TO  REFLECT  THE  NEWLY  DEF01160 

RESERVED  PTR  SLOTS.  FINALLY,  NAMEGEN  IS  CALLED  TO  DErOI170 

CREATE  A  NAME  FOR  THE  SUBSET.  AND  THIS  VALUE  IS  PLACED  DEF01180 
IN  CAT_ENTRY .NAME .  DEF01190 

G)  IN  EITHER  CASE  THE  NEXT  STEP  IS  TO  CONVERT  THE  DATA  DEF0I200 

PORTION  OF  CAT  ENTRY  INTO  A  BIT  STRING  VIA  THE  STRING  DEF01210 
FUNCTION.  THIS  BIT  STRING  IS  THEN  PASSED  TO  THE  CRE ATEPDE FO 1 220 
MODULE  WHICH  CREATES  A  BEU  AND  INSERTS  IT  INTO  THE  PCATDE  F  01230 
PSET.  CREATEP  RETURNS  A  PTR  TO  THE  NEWLY  CREATED  BEU.  DEF01240 

H)  IF  THE  LINK  TYPE  IS  HASHED  THEN  CREATE  I  (AN  IN-  DEF01250 

TERNAL  PR0CEDURE)1S  CALLED  TO  CREATE  A'SCATTER  TABLE  DEF01260 

FOR  THE  PSET. (EACH  PSET  WHICH  IS  HASHED  HAS  ITS  OWN  DEF01270 

SCATTER  TABLE  WHICH  IS  IMPLEMENTED  AS  A  BASED  STRUC TUREDE F 0 1 2B0 
WHICH  CONTAINS  A  POINTER  ARRAY.  WHEN  IN  USE,  AN  ENTRY  0EF01290 
IN  THE  POINTER  ARRAY  IS  EITHER  NULL,  OR  POINTS  EITHER  DEF01300 
TO  THE  BEU  CONTAINING  THE  KEY  VALUE  OR  TO  AN  OVER-  DEF013I0 

FLOW  CHAIN.)  CREATED  RETURNS  A  PTR  TO  THE  SCATTER  DEF01320 

TABLE,  ANO  THIS  PTR  IS  PLACED  IN  THE  L  POST  PTR  SLOT  DEF01330 

THE  BEU  CONTAINING  THE  CATALOGUE  EUTRy”F0R  THE  PSET.  0EF0I340 

I)  IF  THE  PSET  IS  A  SUBSET  THEN  IT  IS  NECESSARY  TO  CHAIN  DEFO1350 

THE  SUBSET  CATALOGUE  ENTRY  TO  THE  PRIMARY  PSET  CAT LOGUEDE F 0 1 360 
ENTRY.  THIS  IS  NECESSARY  SO  THAT  IF  AN  INSERTION  IS  DEF01370 

MADE  INTO  A  SUBSET,  THEN  THE  ELEMENT  CAN  ALSO  BE  DEF013B0 

INSERTED  INTO  THE  PRIMARY  PSET.  IN  ADDITION,  SUBSET  0EF01390 
SET  DEFINITIONS  FOR  A  GIVEN  PSET  ARE  CHAINED  TOGETHER  DEF01400 
THESE  TASKS  ARE  ACCOMPLISHED  HERE  BY  UPDATING  THE  P_  0CF01410 
CHAIN  PTR  SLOT  IN  THE  BEU  CONTAINING  THE  SUBSET  CAT ALOGDEF01420 
DEFINITION  SO  THAT  IT  POINTS  TO  THE  PRIMARY  PSET  DEF01430 


.....  DEFINITION,  AND  IN  ORDER  TO  CHAIN  THE  SUBSETS  TOGE THERDE FOI 440 

.....  THE  SUBSET  DEFINITION  IS  INSERTED  AT  THE  FRONT  OF  THE  DEF01450 

.....  SUBSET  CHAIN.  DEF01460 

.....  J )  THE  FINAL  STEP  IS  TO  FREE  THE  TEMPORARY  STRUCTURE  USED  DEF01470 

.....  TO  BUILD  THE  CATALOGUE  ENTRY.  DEF014B0 

.....  DEF01490 

0EF0I500 

.....  INPUT  PARAMETERS:  DEF01510 

.....  NAME!  -  IF  THIS  IS  NOT  A  SUBSET  OF  AN  EXISTING  PSET,  DEF01S20 

.....  THEN  NAME  1  IS  THE  NAME  OF  THE  PSET  TO  BE  DEFINED.  DEF01530 

.....  OTHERWISE,  IT  IS  THE  NAME  OF  THE  PRIMARY  PSET  DEF01540 

.....  FOR  WHICH  THIS  IS  A  SUBSET.  DEF0I550 

.....  L  TYPE  I  -  THE  ACCESS  METHOD  to  BE  employed:  DEF01560 

'00000001*8  -HASHING  VIA  A  SCATTER  table  DEF01B70 

' 000000 1 0  '  B  -B  TREE  DEF015B0 

1 000001 00 ' B  -LINEAR  PTR  CHAIN  0EFO159O 

.....  KEY_PO S 1  -  THE  STARTING  POSITION  (IN  BITS)  OF  THE  KEY  DET01600 

WITHIN  The  DATA  area  OF  BEUS  within  THIS  DEF0I610 

PSET.  DEF01620 

.....  KEY_LENI  -  THE  LENGTH  (IN  BITS)  OF  THE  KEY.  MAXIMUM  DE101630 

KEY  LENGTH  OF  128  BITS.  DEF0I640 

.....  LEN1  -  LENGTH  OF  OATA  PORTION  OF  BEU.  (NOT  USED  IN  THIS  DEFOlGSO 

.....  IMPLEMENTATION  SINCE  BEUS  ARE  FIXED  SIZE)  DEF01660 

.....  SUBSET  1  -  Flag  TO  INDICATE  IF  THIS  IS  A  SUBSET:  DEF0I670 

.....  1 0 ' B  -  IF  NOT  A  SUBSET  DEF0I6B0 

.....  • 1 ' 8  -  IF  A  SUBSET  DEF01690 

.....  S  1 D 1  -  INDICATES  PTR  SLOT  TO  BE  USED  FOR  CHAINING  DEF01700 

.....  '  ELEMENTS  OF  SUBSET.  IF  NOT  A  SUBSET,  DI SREGARDEDDE F0 1 7 1 0 

.....  F 2  -  NOT  SIGNIFICANT  ON  INPUT.  DEF01720 

.....  DEF01730 

..............  DE  F0 1 740 

.....  OUTPUT  PARAMETERS:  DET01750 

.  S  ID1  -  IF  THIS  IS  A  SUBSET  AND  S  ID1  IS  INITIALLY  'O'B  DEF01760 

.....  “  THEN  THIS  MODULE  RETURNS  THE  VALUE  THAT  MAPSET  DEF01770 

.....  RESERVED  TO  BE  USED  FOR  CHAINING.  DEF01780 

.....  P2  -  PTR  VALUE  WHICH  POINTS  TO  THE  PSET  CATALOGUE  ENTRY  0EF0I790 

..*«•  CREATED.  (MOSTLY  USED  BY  THE  CREATES  MODULE  WHEN  DEF0.800 

.....  IT  HAS  CALLED  THIS  MODULE  TO  DFFINE  A  PSET  DE F INI T IONDE F0 1 8 1  0 

.....  FOR  A  SUBSET,  AND  THE  PTR  TO  THIS  DEFINITION  IS  DEF01820 

.....  TO  BE  INSERTED  INTO  A  PTR  SLOT  OF  A  BEU  IN  DOMAIN  1  DEF01830 

.....  IF  1-N,  OR  WITHIN  DCMAIN2  IF  N-1.)  DE101840 

.....  DEF01850 

DEF01B60 

.....  PROCEDURES  INVOKED:  DEF01870 

.....  SEARCH,  CREAIEP,  MAPSET,  ( IN  I T  P,  CREATE.I )  INTERNAL  DEF018B0 

.....  DEF01890 

....V. DEF01900 

.................  DP  00010 

DCL  ('  TYP£1,KEY_P0S1,KEY_LEN1,SUBSET1,S_ID1)  BIT(8).LEN1  DP  00020 


' 


BIT ( 1 6  )  ,  NAME1  BIT (64);  DP  00030 

X  INCLUDE  PSET  C  AT ;*•*»•**•*•***•***♦•********••****•••**•***** »*•***• ***DP  00040 
/*  PS  £  T_CAT  TEMPLATE  •/  BCA00130 

3  1  0  OCL  1  CAT_E  NTRY  BASEO(P).  /*  BASED  ON  10  OF  PSET_CAT  BEU  •/  BCA00140 

2  LENGTH  FIXED  BIN(15),  /*  LENGTH  OF  CAT  ENTRY  */  UCA00150 

2  P_ARRAY(16)  POINTER,  /*  P  T  R  ARRAY  FOR  LINKING  ♦/  BCA00160 

2  OATA,  /*  INFO  ON  PSET  ORGANIZATION  */  BCA00170 

3  NAME  BIT(64),  /•  NAME  OF  PSET  */  BCAOOIBO 

(  3  SPJ/IAP,  /•  MAP  OF  POINTER  ARRAY,  */  BCAOO190 

3  APJAAP  )  B I T ( 1 6 )  ,  /*  GIVING  STATUS  OF  P_SLOTS  */  8CA00200 

3  NUMFREE  BIT(8),  /•  NOT  USED  ♦  /  BCA002I0 

3  SEARCH^ INFO,  /•  LINKAGE  INFORMATION  •  /  BCA00220 

(  4  lItyPE,  /»  TYPE  OF  LINK  (HASHED  ETC .  .  )  */BC A00230 

4  L_POSI ,  /»  PTR  SLOT  USED  FOR  CHAINING  */BCA00240 

4  L_P0S2,  /•  ADD  I T IONAL  PTR  SLOT  FOR  LINK  */BCA00250 

4  K£Y_POS,  /♦  STARTING  POSITION  OF  KEY  */  BCA00260 

4  K£Y_LEN  )  BIT(8).  /•  LENGTH  OF  KEY  */  BCA00270 

3  SET_T  Y  PE ,  /•  SET  TYPE  INFO  */  BCAOO2B0 

(  4  SUBSET,  /*  IF  PRIMARY  OR  SUBSET  •/  8CA00290 

4  SUBSE  T  _I D,  /*  PTR  SLOT  FOR  SUBSET  LINK  •/  BCA00300 

4  P_CHAIN,  /*  PTR  SLOT  PTS  TO  PRIMARY  DCL*/BCA0031 0 

4  S_CHAIN  )  BIT(B),  /•  SUBSET  DCL  CHAIN  */  BCA00320 

,  3  OATA_LEN  BIT(I5):  /*  LENGTH  OF  ELEMENTS  •/  BCAC0330 

••»•»»»»*«»**■***»  DP  00040 

O  %INCLUOe  IDS1 ;«»**»»»***»****»*»*»»»**»*»»*»»»***’'»»******»******»«***»DP  OOOSO 

/*  POINTER  STACK  RETURNED  BY  SEARCH  •/  BCA00420 

1  4  10  DCL  I  OS  1  PTR  EXTERNAL  CONTROLLED;  BCA00430 

«»•••»***»*•*•  OP  00050 

X  INCLUDE  PSETTYIJI  ;*•***»•»♦•«•»****•*»•*****•*••***•••••***•*•**♦••*••**  DP  00060 
/•  PSE  LINK  TYPES  •/  8CA00540 

5  1  0  DCL  H.,SHEO  B I  T  (  8  )  IN  I  T  (  1 0000000 1  ’  B  ) ,  BCA00550 

B_TREE  8IT(8)  INI T ( 1 00000010 1 B ) ,  BCA00560 

LINEAR  B I T ( 8 )  INI T (* 00000 1 00 1 B  )  ;  BCA00570 

•  DP  00060 

/*  PROCEDURES  CALLED  */  DP  00070 

X  INCLUDE  EHASH; .***♦*.«»»•****♦»*♦*«*•**••****••*♦•*••• ••••••••»*••••*. DP  00080 

/*  HASHING  MODULE  */  DECOOO20 

6  1  0  DCL  HASH  ENTRY(BIT(64) , FIXED  BIN(15))  RETURNS ( F I XED  BIN(IS));  DEC00030 

OP  00080 

X  INCLUDE  EPR1NTP; *♦**♦*•*»••*♦**♦*****<-******♦•••*•••*•••••*«••**** •••♦DP  00090 
/•  DIAGNOSTIC  PRINT  MODULE  •/  DEC00050 

7  1  0  DCL  PRINIP  ENTRY(POINTER);  DEC00060 

•*••*•••••••*«•«•  DP  00090 

X  INCLUDE  ESEARCH; »*♦*♦**••••*****•*♦••**•••••••••*•••••••**•*••••■*• •••*DP  00100 

/•  SEARCH  MODULE  •/  BCA00700 

8  1  0  DCL  SEARCH  ENTR Y ( B I T ( 2 ), 01 T< 64 ), BI T (64 ), POINTER . POINTER ) S  BCA00710 

BCA00720 

**•**•♦****•*♦•*»  OP  00100 

X INCLUOE  ECREA'E ;••••*••**••*••••••*••••*•♦••*•*••.•••• ••••••••••••••••OP  OOMO 
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9 

1 

0 

/*  BEU  CREATION  MODULE  */ 

DCL  CREATEE  ENTR Y ( B I T ( 3 20 ) . B I T ( 1 6 ) , POINTER ) ; 

ECR00020 

ECR00030 

10 

1 

0 

/*  CREATE  PSET  MOOULE  */ 

DCL  CREATEP  ENTR Y ( BI T ( 64 ), B I T ( 320 ), POINTER ) ; 

OP  00110 
••DP  00120 
BCA00630 
BCA00640 

11 

1 

c 

/*  ‘UP  MAINTENANCE  MODULE  •  / 

DCL  MAPSET  ENTR Y ( BI T ( 1  )  , F I XED  8 IN( 8 ) , BI T ( 1 6 ) . BI T ( 16) . 8IT(8 ) ) } 

DP  00120 
**DP  00130 
ECR00050 
ECR00060 

12 

1 

0 

/<  RANOOM  NAME  GENERATOR  */ 

DCL  NAMEGEN  ENTRY ( F 1 XED  BIN(15))  RE TURNS{ BI T ( 64 ) ) J 

DP  00130 
**DP  00140 
ECR00080 
ECR00090 

13 

1 

0 

/•  MISC  DCL  •/ 

DCL  ! PI ,P2, P3, I02.P, ID.NEW)  POINTER,  STR  BIT(320); 

DP  00140 
DP  00150 
DP  00160 

14 

1 

0 

DCL  PCATPTR  POINTER  STATIC  EXTERNAL, 

DP  00170 

15 

1 

0 

I DX  PTR  CTL, 

P.CAT  B  I T ( 64 )  STATIC  EXTERNAL; 

/•  INITIALIZE  PSET  CAT  IF  NECESSARY  */ 

IF  PCATPTR  =NULL( ) 

DP  00180 
DP  00190 
DP  00200 
DP  00210 
DP  00220 

16 

1 

0 

THEN  CALL  INIT_P; 

/*  GET  APPROPRIATE  TEMPLATE  ♦/ 

IF  SUBSET1='0'8  THEN 

DP  00230 
DP  00240 
DP  00250 
DP  00260 

17 

1 

0 

CALL  SEARCH! ‘ 01 'B,P_CAT,P  CAT , IDX , ID2 ) 5 

ELSE  CALL  SEARCH! '01 'B, P.CAT, NAME1 , IDX. ID2) ; 

DP  00270 
DP  00280 

18 

1 

0 

/*  INITALIZE  CAT.ENTRY  */ 

ALLOCATE  CAT  ENTRY  ; 

DP  00290 
DP  00300 
DP  00310 

19 

1 

0 

P->CAT  ENTRY. 0ATA=IDS1->CAT  ENTRY. DATA; 

DP  00320 

20 

1 

0 

/•  MODIFY  TO  REFLECT  NEW  PSET  DEFINITION  •  / 

IF  SUBSET  1  * ' 0 1 B  THEN 

DP  00330 
DP  00340 
DP  00350 

21 

1 

1 

do; 

CAT  ENTRY . NAME  = NAME  1 ; 

DP  00360 
DP  00370 

22 

1 

1 

CAT  ENTRY. KEY  POS  =  KEY_POS 1  ; 

DP  00380 

23 

1 

1 

CAT  ENTRY ,KEY_LEN=KEY_LEN1  ; 

OP  00390 

24 

1 

1 

CAT  ENTRY. OATA  LEN*  LEN 1 ; 

DP  00400 

25 

1 

1 

CAT  ENTRY. L  TYPE=L  TYPE1; 

DP  00410 

26 

1 

1 

/•  IF  HASHED  ALLOCATE  PTR  SLOT  FOR  OVERFLOW  CHAIN  * 
I F  L  TYPE*  HASHEO  THEN 

DP  00420 
/  DP  00430 
DP  00440 

27 

1 

1 

CALL  MAPSET( *  1  1 B.2, SP.MAP , AP.MAP , L.P0S2 ) ; 

/*  IF  B-TREE  ALLOCATE  2  SLOTS  FOR  RIGHT, LEFT  CHAIN 
ELSE  IF  L.TYPE  *B_TREE  THEN 

DP  00450 
DP  00460 
•/DP  00470 
DP  00480 

DO; 

DP 

00490 

28 

1 

2 

CALL  MAP  SE  T ( *  1  ' B , 2 ,  S  P  MAP.AP  MAP.L.P0S1); 

DP 

00500 

29 

1 

2 

CALL  MAPSET ( '1  * B . 2 , S P_MAP , AP.MAP . L.P0S2 ) { 

DP 

00510 

30 

1 

2 

END; 

DP 

00520 

DP 

00530 

/*  IF  LINEAR  ONLY  1  PTR  SLOT  USED  •/ 

DP 

00540 

31 

1 

1 

ELSE  CALL  MAPSET ( 1 1 ' B , 1 , S  P  MAP . AP.MAP , L_P0S2 ) ; 

DP 

00550 

32 

1 

1 

END; 

DP 

00560 

DP 

00570 

/«  IF  A  SUBSET  THEN  WORK  FROM  PRIMARY  SET  CAT  ENTRY  •/ 

DP 

00580 

33 

1 

0 

ELSE  DO; 

DP 

00590 

/*  IF  NO  PTR  SLOT  HAS  BEEN  ALLOCATED  FOR  SUBSET 

DP 

00600 

CHAINING,  ALLOCATE  A  SLOT  */ 

DP 

00610 

34 

1 

1 

IF  S  I D1 = ‘ 0 ' B  THEN 

DP 

00620 

CALL  MAPSET ( ‘ 1  * B, 1 , S P  MAP.AP  MAP,S_ID1); 

DP 

00630 

3S 

1 

1 

SUBSET_ I D=S_1 Dl ; 

DP 

00640 

DP 

00650 

/♦  IF  FIRST  SUBSET  IN  PRIMARY  SET  ALLOCATE  2  SLOTS, 

DP 

00660 

1  TO  LINK  SUBSET  CAT  WITH  PRIMARY  CAT,  AND  1  TO 

DP 

00670 

LINK  SUBSET  CATS  «/ 

DP 

00680 

36 

1 

1 

IF  P  CHAIN* 1 0 ' B  THEN 

DP 

00690 

00; 

DP 

00700 

37 

1 

2 

CALL  MAPSET( *  1  '8,1 ,5P  MAP,AP  MAP , P_CHA IN); 

OP 

00710 

3B 

1 

2 

CALL  MAPSET ( ' I  ' B , 1 , S P  MAP.AP  MAP , S_CHAIN ) J 

DP 

00720 

39 

1 

2 

ENO; 

DP 

00730 

DP 

00740 

/•  UPDATE  PRIMARY  CAT  ENTRY  TO  REFLECT  ALLOCATIONS  •/ 

DP 

00750 

40 

1 

1 

I DS1 -SC AT.ENT  RY . OAT  A  =  P“>C  AT.ENTRY . DATA; 

DP 

00760 

DP 

00770 

/•  FINISH  DEFINING  SUBSET  */ 

DP 

00780 

41 

1 

1 

C  AT_EN  TRY. NAME  =  NAMEGEN( 8 )  ; 

DP 

00790 

42 

1 

1 

CAT_EN TRY. SUBSET  =  SUBSET  1 ; 

DP 

00800 

43 

1 

1 

CAT.ENTRY.L.P0S2  *SU  BSET_ I d ; 

DP 

00810 

44 

1 

1 

l_type=lin£ar ; 

DP 

00820 

45 

1 

1 

END; 

DP 

00830 

DP 

00840 

/• 

CREATE  ENTRY  IN  P.SET  CATALOG  */ 

DP 

00850 

46 

1 

0 

STB 

*S T R I NG ( CAT  ENTRY. DATA); 

DP 

00860 

47 

1 

0 

CALL  CREATE  P(  P  CAT.STR.P2); 

DP 

00870 

DP 

OOBBO 

/* 

UPDATE  POINTER  ARRAYS*/ 

DP 

00890 

48 

1 

0 

IF  L  TYPE  *  HASHEO  THEN 

DP 

00900 

DO; 

DP 

00910 

/*  CREATE  SCATTER  TABLE  AND  CHAIN  TO  CATALOGUE  •/ 

DP 

00920 

49 

1 

1 

CALL  CREATE. I (NAME, KEY_LEN,P3) ; 

OP 

00930 

50 

1 

1 

P2->P_ARRAY(P2->L_POS1 )*P3; 

DP 

00940 

51 

1 

1 

END; 

OP 

00950 

DP 

00960 

52 

1 

0 

IF  SUBSET  THEN 

OP 

00970 

52  1  0 


IF  SUBSET  THEN 
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DO; 

/*  UPDATE  CATALOGUE  CHAINS  TO  PRIMARY  AND  OTHER 
SUBSET  CATALOGUE  ENTRIES  */ 

53  1 

54  1 

55  1 

56  1 


1  P 2->P  ARRAY(P  CHAIN )  =  IDS  1  ; 

1  P  2->P~ARRAY( S_CHA1N ) *  IDS  t -> P_ARR AY (S_ CHAIN) ; 

1  1 DSl ~>P_ ARRAY ( S_CHA  IN ) =P2  ; 

1  END; 


57  1  0 

58  1  0 

59  1  0 


FREE  IDSi; 

FR'  E  C AT_ENTRY; 
RE . URN  ; 


60 


0 


I NIT_P:  PROC; 

/•**** . . . * . . . * . . 

•  THIS  MODULE  IS  RESPONSIBLE  FOR  INITIALIZING  THE  PRIMITIVE  * 

•  LAYER.  THIS  TASK  REOU1RES  IT  TO  INITIALIZE  THE  PCAT  PSET,  • 

•  USING  THE  DECLARATION  PROVIDED  BELOW.  • 

. . . . . . . . * . * . . 


/*  PCAT  PSET  CAT  ENTRY  WITH  DESIRED  ORGANIZATION  */ 

61  2  0  OCL  1  CAT. ENTRY  BASED! P )  , 

2  LENGTH  FIxEO  8IN(15)  INIT(1S6), 

2  P_AR HA Y ( 1 6  I  POINTER. 

2  OATA  . 

3  NAME  BIT (64  )  , 

3  SP_MAP  B I T  (  16)  IN  I T ( '01 1 1111  111  1111 M *B)  , 

3  AP_MAP  B I T ( ) 6 )  1NIT< 1 111111111111 1111*8), 
3  NUMFREE  BIT (8). 

3  SEARCH_.INFO, 

4  L  TYPE  B I T ( 8  )  INI  T ( * 00000001 1 B  ) , 

4  L  rOSl  8 1 T ( 8  )  INI T  (  'OOOOOPIO'B)  , 

4  L_P0S2  0 1 T ( 8  )  I N 1 1 <  '00000001 ' B  >  . 

4  KEY_POS  B 1 T ( 8  )  INI T(  '00000001 1 8) , 

4  KEY_LEN  BIT(8)  INIT( ‘01000000'B), 

3  SET  _  T  Y  PE , 

4  SUBSET  BIT(B)  IN  I  T (• 00000000 ' B  )  , 

4  SUBSET  _I0  8 1 T ( 8 )  I  N I T  (  • OCOOOOO 0 1 B ) , 

4  P.CHA1N  B1T(8)  I N i T ( ' OCOOOOOO '  B )  , 

A  S_CHA1N  B I T ( B )  I N I T ( 1 00000000 1 B) , 

3  DAT  A_LEN  BIT{16)  I N I T (' 000000001  1 000000  *  8) { 
/«  POINTS  TO  PCAT  PSET_C AT AL03UE  ENTRY  */ 

82  2  0  DCL  PCATPTR  POINTER  STATIC  EXTERNAL, 


/•  STRUCTURE  OF  SCATTER  TABLE  •/ 
1  T_ I N OEX  BASED! INDEX _PTR), 

2  NAME  BIT (64 ) , 

2  TEST_LEN  FIXED  BIN(15) , 


DP 

DP 

DP 

DP 

DP 

DP 

OP 

DP 

DP 

DP 

OP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

DP 

OP 

DP 

OP 

OP 


00980 
00990 
0)000 
01010 
01020 
01030 
01040 
OlOSO 
01060 
01070 
0 1 080 
01090 
01100 
01  1  to 
011  20 
01130 
01  140 
01  150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 


63 

64 

65 

66 


67 


68 

69 


70 

71 


I 

UJ 

O 

Ol 

I 


72 

73 

74 

75 


76 


77 


76 

79 


2  PTR  TO_ENT R ¥ ( 50 )  POINTER, 

DP 

01470 

DP 

01480 

(P,  INDEX  PTR)  POINTER.  STR  BIT(240), 

DP 

01490 

P  _CAT  B I T ( 64 )  STATIC  EXTERNAL; 

DP 

01500 

DP 

01510 

/♦  START  OF  PROCEDURE  */ 

DP 

01520 

2 

0 

ALLOCATE  CAT  ENTRY  SET(P); 

DP 

01530 

2 

0 

P_CAT  =  l.'N'iPE  cT  1  P  CAT  1  ); 

DP 

01540 

2 

0 

CAT_ENTTY.N AME  =  P  CAT; 

DP 

01550 

2 

0 

STR=STR  NG(CAT  ENTRY. DATA); 

DP 

01560 

DP 

01570 

/•  CREATE  BEU  CONTAINING  CAT  ENTRY  */ 

DP 

01580 

2 

0 

CALL  CREATEE(STR, DAT A_L EN , 1D_N£W ) ; 

DP 

01590 

DP 

01600 

/*  CREATE  SCATTER  TABLE  FOR  PSET  AND  INSERT  PTR  INTO  SLOT  */ 

DP 

01610 

2 

0 

CALL  CREATE  I(CAT_ENTRY . NAME , KE Y_LE N , INDEX  PTR); 

DP 

01620 

2 

0 

ID  NEW->P  ARRAY ( L  POS1 ) = I NDEX_PTR ; 

DP 

01630 

DP 

01640 

/*  UPDATE  SCATTER  TABLE  TO  REFLECT  NEW  ENTRY  •/ 

DP 

01650 

2 

0 

POS  H ASH(CA  T  ENTRY . NAME . INDEX_PTR-> TEST  LEN ) { 

DP 

01660 

2 

0 

INDEX  PTR->  T  INDEX. PTR  TO  ENTRY ( POS ) - 1 D  NEW; 

OP 

01670 

DP 

01680 

/»  SET  PCATPTR  TO  10  OF  CAT  ENTRY  */ 

DP 

01690 

2 

0 

PCATPTR=ID  NEW; 

DP 

01700 

2 

0 

FREE  CAT  ENTRY; 

DP 

01710 

2 

0 

RETURN; 

DP 

01720 

2 

0 

END 

INI T  P; 

DP 

01730 

DP 

01740 

/«*« 

DP 

01750 

DP 

01760 

1 

0 

CREATE  I:  PROCfNAMEI , LEN, ID.  RETURN); 

DP 

01770 

/*•' 

DP 

0 1  780 

* 

THIS  MODULE  IS  RESPONSIBLE  FOR  CREATING  THE  SCATTER  • 

DP 

01790 

• 

TABLE  USED  TO  IMPLEMENT  HASHING.  IT  RETURNS  A  POINTER  * 

DP 

01800 

* 

TO  THF  SCATTER  TABLE  THAT  IT  CREATED.  • 

DP 

01810 

♦ 

DP 

01820 

DP 

01830 

/*  STRUCTURE  USED  FOR  SCATTER  TABLE  */ 

DP 

01840 

2 

0 

DCL  1  INDEX  BASED! ID  RETURN), 

DP 

01850 

2  NAME  ENTRY  BIT(64), 

DP 

01860 

2  TEST  LEN  FIXED  B1N( 15) , 

DP 

01870 

2  PTR_  TO_ENTRY ( 50 )  POINTER  INIT((50)  NULL!)). 

DP 

01880 

DP 

01890 

ID_RETURN  POINTER, POS  FIXED  BIN(15), 

DP 

01900 

NAME1  B I T  ( 6  4  ) , LEN  BIT(8); 

DP 

01910 

DP 

01920 

/*  ALLOCATE  STRUCTURE  TO  BE  USED  AS  A  SCATTER  TABLE  */ 

OP 

01930 

2 

0 

ALLOCATE  INDEX  SET(!0  RETURN); 

DP 

01940 

2 

0 

INDEX. N‘ME_ENTRY=NAME7; 

OP 

01950 

I 


80  2  0  TEST_LEN«LEN; 

81  2  0  RETURN; 

82  2  0  EN0CREATE.1; 


DP  01960 
DP  01970 
DP  01980 
OP  01990 
DP  02000 


83  1  0  END  DEFINEP 


p 


• 

u> 

o 

GO 

I 


X  INCLUDE  CREATEP; ..«**•**♦«.•*•*..*♦*.*.*.* •*.*.*««**.*..„♦***••••.. •••CRPOOO 1 0 
/•*•**.**••••****.•*»•.*»••••**•*•****•*»•*••»••»**•••*••«•*••••»»•*•  CREOOOt  0 

•  •  CRE00020 

•  MOOULE  DESCRIPTION  •  CRE00030 

**»9********* *************  it********************** **•»»****••*••****/  CRE 00040 

0  CREATEP:  PROCEDURE  CRE00050 

( NAME1 ,  /♦  B I T ( 64 )  */  CRE00060 

DAT  At ,  /»  BI T( 320)  */  CRE00070 

ID_N£W  /*  PTR  •  /  );  CREOOOBO 

CRE00090 

*****  PURPOSE:  CRE  00 1 00 

•  ••*•  THIS  PROCEOURE  IS  RESPONSIBLE  FOR  INSERTING  AN  ELEMENT  CRE00110 

«*•»•  CONTAINING  I  HE  BIT  STRING  DATA1  INTO  THE  PSET  NAME1 .  CRE00120 

*****  NAME  1  MAY  BE  EITHER  A  PRIMARY  PSET  OR  A  SUBSET  OF  AN-  CRE00130 

*****  OTHER  PSET.  IF  IT  IS  A  SUBSET,  THEN  THE  ELEMENT  MUST  BE  CRE00t40 

••••♦  INSERTEO  INTO  BOTH  THE  SUBSET  AND  THE  PRIMARY  PSET.  CRE00150 

•  »*•*  CRE  00 1 60 

*****  CRE  00 1 70 

CREOO 1 00 

METHOD:  CRE00I90 

•••••  THIS  MODULE  INSERTS  THE  OATA  ITEM  INTO  THE  PSET  VIA  THE  CRE00200 

*****  FOLLOWING  STRATEGY :  CRE00210 

•  ••*•  A)  THE  FIRST  TASK  IS  TO  RETRIEVE  THE  P.CAT  CATALOGUE  CRE00220 

*****  FOR  THE  NAME  1  PSET.  THIS  IS  ACCOMPLISHED  BY  CALLING  CRE00230 

•  ••»•  SEARCH,  WHICH  RETURNS  A  POINTER  TO  THE  BEU  CONTAINING  CRE00240 

**••»  THE  CATALOGUE  ENTRY  FOR  THE  PSET.  USING  A  PTR  OVER-  CRE00250 

•••♦•  LAY,  CAT_ENIRY  (A  TEMPORARY  STRUCTURE)  IS  OVERLAID  CRE00260 

*****  ON  THE  BEU.  THIS  CATALOGUE  ENTRY  CONTAINS  INFORMATION  CRE00270 

•  NECESSARY  TO  INSERT  THE  ELEMENT  AND  PERFORM  CHAINING.  CRE00280 

*****  B)  IF  THE  PSET  IS  NOT  SUBSET,  THEN  CREATEE  IS  CALLED,  CRE00290 

•  PASSING  IT  DATA).  CREATEE  IS  THE  MODULE  WHICH  IS  CRE00300 

*••«•  ACTUALLY  RESPONSIBLE  FOR  CREATING  A  BEU  WHICH  CON-  CRE00310 

**•♦«  TAINS  A  COPY  OF  DATA!  IN  ITS  DATA  PORTION.  CREATEE  CRE00320 

*****  RETURNS  A  PTR  TO  THE  NEWLY  CREATED  BEU.  THE  SEARCH  CRE00330 

ROUTINE  IS  THEN  CALLED,  PASSING  IT  THE  NAME  OF  THE  CREC0340 

•  ••«*  PSET  AND  DAT  A  t .  SEARCH  RETURNS  VIA  ID.POS  (THE  LAST  CRE00350 

PARAMETER)  A  PTR  WHICH  POINTS  TO  THE  BEU  TO  WHICH  CRE00360 

*****  THE  NEW  BEU  SHOULD  BE  CHAINED.  FINALLY,  CHAIN  (  AN  CRE00370 

*****  INTERNAL  PROCEDURE)  IS  CALLED  .  PASSING  IT  POINTERS  CREOO30O 

*****  TO  THE  CATALOGUE  ENTRY  AND  THE  NEW  BEU.  CHAIN  IS  CRE00390 

*****  RESPONSIBLE  FOR  THE  ACTUAL  INSERTION  OF  THE  BEU  INTO  CRE00400 

*****  THE  PSET,  I.E.  CHAINING  IF  LINEAR  OR  B.TREE  LINK  TYPE,  CRE00410 

*****  OTHERWISE,  UPDATING  PSET'S  SCATTER  TABLE  OR  CHAINING  CRE00420 

•♦••*  INTO  AN  OVERFLOW  CHAIN  .  CRE00430 

*****  C)  I r  THE  PSET  IS  A  SUBSET  OF  ANOTHER  PSET  THEN  IT  IS  CRE00440 

*****  IECESSARY  TO  INSERT  THE  ELEMENT  INTO  BOTH  THE  SUBSET  *  CRE00450 


A 
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•  *  *  •  * 

*  *  •  •  *  4 

*  *  «  »  * 

•  »  «  •  « 

*  *  *  *  « 


the  primary  pset.  the  strategy  employed  IS  as  fol¬ 
lowed: 

1)  THE  PT9  VALUE  IN  THE  P_CHAIN  PT R  SLOT  OF  THE  PSET 
CATALOGUE  ENTRY  IS  USE5  AS  A  PT R  TO  THE  PRIMARY 
PSET  CATALOGUE  ENTRY. 

2)  THE  SEARCH  PROCEDURE  IS  CALLED,  PASSING  IT  THE 
PRIMARY  PSET  NAME  POINTED  TO  BY  THE  PTR  IN  P_CHAIN, 
AND  DATA1  AS  THE  KEY.  THE  PURPOSE  HERE  IS  TO 
SEARCH  THE  PRIMARY  PSET  TO  FIND  WHERE  TO  INSERT 
THE  BEU  CONTAINING  DATA! . 

3)  THE  NEXT  STEP  IS  TO  CALL  CREATFE.  PASSING  IT  DA T A 1 . 
AS  DESCRIBED  ABOVE  CREATEE  CREATES  A  BEU  CONTAINING 
DATA1  AMD  RETURNS  A  POINTER  TO  THE  NEW  BEU. 

CREATEE  AS  DESCRIBED  ABOVE. 

4)  CHAIN  IS  THEN  CALLED  TO  INSERT  THE  BEU  CREATED  BY 
CREATEE  INTO  THE  PRIMARY  PSET.  USING  THE  VALUE  OF 
ID  POS  RETURNEO  BY  THE  PREVIOUS  CALL  TO  SEARCH. 

5)  SEARCH  IS  CALLED  AGAIN.  THIS  TIME  TO  FIND  THE  VALUE 
OF  ID_ POS  WITHIN  THE  SUBSET  (I.E.  WHICH  ELEMENT 
WITHIN  THE  SUBSET  TO  CHAIN  THE  NEW  ELEMENT),  AND 
THEN  CHAIN  IS  CALLED  TO  INSERT  THE  BEU  INTO  THE 

SUBSET. 

►  *♦♦**•♦******♦♦♦****♦♦***♦******♦♦•***••***♦**♦***♦****♦**•♦** 
INPUT  PARAMETERS: 

NAME  1  -  NAME  OF  PSET  INTO  WHICH  ELEMENT  IS  TO  BE  INSERTED 
DAT  A 1  -  BIT  STRING  TO  BE  INSERTED 
ID.NEW  -  NOT  SIGNIFICANT  ON  INPUT. 


OUTPUT  PARAMETERS'- 

ID_NEW  -  POINTER  TO  BEU  CREATED. 


CALLS  PROCEDURES: 

SEARCH.  CREATEE,  CHAIN  (INTERNAL) 


%  INCLUDE  PSET CAT ;*•»*♦«***«*•*«*«***< 
/*  PSET.CAT  TEMPLATE  •/ 

DCL  1  CAT  ENTRY  BASEO(P), 

2  LENGTH  FIXED  BIN( 15) , 

2  P__AR RAY (  1 6 )  POINTER, 

2  DATA, 

3  NAME  BIT (64  ) , 

(  3  SP_MAP, 


/*  BASED  ON  ID  OF  PSET_CAT  BEU  •/ 
/*  LENGTH  OF  CAT  ENTRY  */ 

/*  PTR  ARRAY  FOR  LINKING  */ 

/•  INFO  ON  PSET  ORGANIZATION  */ 
/•  NAME  OF  PSET  */ 

/*  map  of  pointer  array,  */ 


3  AP_MAP  )  B I T ( 1 6 )  •  /•  GIVING  STATUS  OF  P.SLOTS  */ 


CRE00460 
CRE00470 
CRE004BO 
CRE00490 
CRE00500 
CRE00S1 0 
CRE  00520 
CRE00530 
CRC00S40 
CREOOSSO 
CRE00560 
CRE  0057  0 
CRE00580 
CRE00590 
CRE00600 
CRE  0061 0 
CRE00C20 
CRE  00630 
CRE  00640 
CRE  00650 
CRE00660 
CRE00670 
CRE00680 
CRE  00690 
CRE00700 
CRE  007 1 0 
CRE00720 
CRE00730 
CRE00740 
CRE  00750 
CRE  00760 
CRE00770 
CRE00780 
CRE00790 
CREOOBOO 
CRE0081 0 
CRE00820 
CRE00830 
CRP00010 
CRP00020 
►CRP00030 
BCA00130 
BC AOO 140 
BCA00150 
8C AOO 1 60 
BCAOO 170 
BC AOO 1 80 
BCAOO 1 90 
BCA00200 


3  NUMFREE  BIT(8),  /*  NOT  USED  »/  BCA00210 

3  SEARCH_INFQ ,  /♦  LINKAGE  INFORMATION  •  /  0CAOO22O 

(  4  L_TYPE ,  /*  Type  OF  LINK  (HASHED  ETC.  .  )*/8CA00230 

4  L_PQS 1 ,  /*  PTR  SLOT  USED  FOR  CHAINING  */BCA00240 

4  L _P0S2 ,  /*  ADDITIONAL  PTR  SLOT  FOR  LINK  */BCA00250 

4  KEY_POS,  /*  STARTING  POSITION  OF  KEY  */  BCA00260 

4  KE Y_L£N  )  BIT(8),  /•  LENGTH  OF  KEY  »/  8CA00270 

3  SE  T_T  YPE ,  /*  SET  TYPE  INFO  */  BCA00280 

(  4  SUBSET.  /*  IF  PRIMARY  OR  SU3SET  •  /  BCA00290 

4  SUBSE T _ I D ,  /*  PTR  SLOT  FOR  SUBSET  LINK  */  BCAC0300 

4  P_CHAIN,  /♦  PTR  SLOT  PTS  TO  PRIMARY  DCL*/ECA003 1 0 

4  S_CHAIN  )  B I T ( 8 ) ,  /.  SUBSET  DCL  CHAIN  */  BCA00320 

3  DATA_LEN  B I T ( 1 5 ) ;  /.  LENGTH  OF  ELEMENTS  */  BCA00330 

CRf'00030 

3  1  0  DCL  P_CAT  BIT (64 )  STATIC  EXTERNAL;  CRP00040 

CRP00050 

%  INCLUDE  IDS1  ;.*••**..»..»....**♦.***».»»..»»».••.....* .*♦*...****«*** *CR P00060 
/•  POINTER  STACK  RETURNED  BY  SEARCH  */  BCA00420 

410  DCL  10S1  PTR  EXTERNAL  CONTROLLED;  BCA00430 

MtMMMMMt  CRPOOOGO 

CRP00070 

X  INC LUO E  PSE TSYM; ***•••.»*•.«**«•*♦*♦♦•***..**♦*•**•*•••*****••••• ****CRP00080 
|  /*  PSET  LINK  TYPES  •  /  BCA00540 

W  5  10  DCL  HASHED  6IT(8)  INI T (  1 C0000001 1 8 )  ,  BCA00550 

£  B  TREE  B I T ( a )  IN  I T ( 1 000000 1 0 1 B  )  ,  BCA00560 

,  LINEAR  BI T ( 8 )  I N I T ( 1 00000 1 00 1 B  )  ;  BCA00570 

**********  ***.♦*  CRPOCOBO 

/*  PROCEDURES  CALLED  BY  CREATE?  */  CRP00090 

X  INCLUDE  ECREA1 F ;**»♦*•**♦♦•«••**********»»..****♦*******•****♦♦*•*•**. CRPOOIOO 
/*  I  EU  CREATION  MODULE  */  ECR00020 

6  1  0  DCL  CREATES  ENTRY ( B I T ( 320 ), BI T ( 1 6 ), POINTER ) ;  ECR00030 

••»»•«••*••.**.«*  CRPOOIOO 

X  INCLUDE  ESEARCH; •***»***♦«♦**«♦«»♦***♦♦***.»..***•*•*• ****************CRP00110 
/*  SEARCH  MOOULE  »/  BCA00700 

7  1  0  DCL  SEARCH  EN TR Y ( BI T ( 2 ) , BI T ( 64 ) , BI T ( 64 ) , POINTE R , POINTER) ;  BCA00710 

BCA00720 

.................  CRP00I10 

X  INCLUDE  EHASH; *»*• «.CRP00 1 20 
/*  HASH ING  MODULE  */  DEC00020 

8  1  0  DCL  HASH  ENTRY(01T(64) , FIXED  BIN(15))  RETURNS( F IXEO  BIN(IS));  DEC00030 

...............  CRP00I20 

X  INC LUO E  EMAPSET; ***CRP00I30 
/*  MAP  MAINTENANCE  MODULE  */  ECR00050 

9  1  0  DCL  MAPSET  ENT RY ( B I T ( 1 )  , F I XED  BIN( 8 ) , BIT( 1 6) .81 T ( 1 6 ) . BIT(8) ) 5  ECR00060 

.................  CRP001 30 

X  INCLUOE  EPRINTP; ****CRP00140 
/*  DIAGNOSTIC  PRINT  MODULE  */  DEC00050 

10  1  0  DCL  PRINTP  ENTRY( POINTER);  DEC00060 

**••**•***••*•♦*  CRP00140 


11  10 


12  10 

13  10 

14  10 

15  1  0 


16  1 


18  11 

19  1  1 

20  1  1 


22  1  0 

23  1  1 

24  1  1 


25  1  1 


26  1  1 

27  1  1 


28  1  1 

29  1  1 


/*  Ml  SC  DECLARATIONS  •/ 

OCL  NAME  t  81  T(  64  ) ,  DAT  A 1  81  T  (  *  ) ,  ( 1  D  RETURN ,  l  D.POS ,  P ,  P_I>TR . 
1 0_NEW  )  POINTER,  1 DXX  POINTER  c5nTR0LLED  7 


/•  GET  PTR  TO  PCAT  CATALOGUE  ENTRY  FOR  PSET  */ 

CALL  SEARCH ( '01  *  B, P_CAT , NAME  1  , IOXX ,  1D_P0S) ; 

P  =  I dS  1 ; 

FREE  l DS 1 ; 

ID_TO_DATE= ALLOCATION! I OSl ) ; 

/•  IF  A  PRIMARY  SET  CREATE  NEW  ELEMENT  AND  CHAIN  IT  INTO  SET 
IF  SU BSE T= ' 0‘B  THEN 
DO; 

CALL  C  RE ATEE ( DAT A1  , OAT A_ LEN , I D _NEW ) ; 

CALL  SEARCH! '01 'B.NAME1 , 0ATA1 , 1DXX, ID  POS ) 5 
CALL  C HA  I N ( P , 1 0_NE W ) ; 

/♦  ADJUST  I0S1  TO  REFLECT  ANY  DUPLICATES  FOUND  •/ 

IF  ALLOCATION! I0S1 )>ID_TO_DATE 
THEN  FREE  IDS1  ; 

END; 

/•  IF  A  SUBSET  INSERT  INTO  BOTH  SUBSET  AND  PRIMARY  SET  */ 

ELSE  00; 

/•  LOCATE  POSITION  WHERE  TO  INSERT  ELEMENT  IN  PRIMARY  */ 
P_PTR=P  ARRAY(P_CHAIN) ; 

CALL  SEARCH! '01 ‘8, P_PTR->NAME, DATA1 , I DXX , I D_POS ) ; 

/*  ADJUST  I0S1  TO  REFLECT  ANY  DUPLICATES  FOUND  */ 

IF  ALLOCATION! I0S1 )>ID  TO  DATE  THEN 
FREE  1051; 

/«  CREATE  BEU  CONTAINING  ELEMENT  AND  CHAIN  INTO  PRIMARY 
SET  »/ 

CALL  CREATEE(0ATA1  ,DATA_LEN, ID_NEW) ; 

call  chain(p_ptr, io_new7; 


CRP00150 
CRPOO 1 60 
CRP001 70 
CRPOO 1 80 
CRPOO 1 90 
CRP00200 
CRP002 1 0 
CRP00220 
CRP00230 
CRP00240 
CRP00250 
CRP00260 
-/CRP00270 
CRP00280 
CRP00290 
CRP00300 
CRP003 1 0 
CRP00320 
CRP00330 
CRP00340 
CRP00350 
CRP00360 
CRP00370 
CRP00380 
CRP00390 
CRPP0400 
CRP004 1 0 
CRP00420 
CRP00430 
CRP00440 
CRP00450 
CRP00460 
CRP00470 
CRP00480 
CRP00490 
CRP00500 
CRP00510 


CRP00520 

/«  LOCATE  POSITION  IN  SUBSET,  ADJUST  IDS1 ,  ANO  CHAIN  ELEMENTCRP 00530 


INTO  SUBSET  */ 

CALL  SEARCH!  '01 1 8 , NAME  1 , DA T A 1 , IDXX , JD_POS ) ; 
IF  ALLOCATION! 10S1 )>ID_TO_DATE 
THEN  FREE  iosi; 

CALL  CHA IN(P, ID_NEW) ; 


END; 

RETURN; 


CRP00540 

CRP00550 

CRP00560 

CRP00570 

CRP00560 

CRP00590 

CRP00600 

CRP00610 

CRP00620 

CRP00630 


34  2  0 


35  2  0 


36  2  0 

37  2  0 


M  3B  2  0 

I 

39  2  t 


40  2  2 

41  2  2 

42  2  2 

43  2  2 


44  2  1 

45  2  1 

46  2  1 


47  2  0 


48  2  1 


CHAIN:  PR0C(CAT  PT  R .DATA  PTR); 

. . . * . ♦••♦**•* . 

•  THIS  PROCEDURE  IS  RESPONSIBLE  FOR  CHAINING  ELEMENTS  INTO 

♦  PREVIOUSLY  DEFINED  PSETS.  GIVEN  CAT_PT R  WHICH  POINTS  TO  THE 

•  PSET  CAT  ENTRY,  DAT  A  _PT  R  WHICH  POINTS  TO  THE  BEU  TO  BE 

*  INSERTED,  ANO  ID_POS  (  A  GLOBAL  VARIABLE  )  WHICH  POINTS  TO  THE 

*  BEU  TO  WHICH  THIS  BEU  SHOULD  BE  CHAINED. 


DCL  (CAf_PTR,OATA_PTR, INDEX_PTR)  POINTER; 

DCL  1  T_ I N DEX  B ASED( I NDEX_PT R ) , 

2  NAME  B I T ( 64  I , 

2  TEST_LEN  FIXED  BIN(15), 

2  PTR_TQ_£NTRY( 50 )  POINTER; 

DCL  POS  FIXED  BIN( 15) ; 

DCL  1  T_ELEMENT  BASED ( OAT  A_PTR ) , 

2  LENGTH  FIXED  B1N( 15)  , 

2  P_ARRAY(16)  POINTER, 

2  INFO  BIT (320) ; 

/•  IF  FIRST  ELEMENT  IN  PSET  »/ 

IF  I D_POS  =  NULL! ) 

THEN  00; 

IF  CAT_PTR->L_TYPE  =  HASHED 
THEN  DO; 

/«  UPDATE  APPROPRIATE  SCATTER  TABLE  ENTRY  •/ 
INOEX_PTR=CAT_PTR->P_ARRAY(CAT  PTR~>L_P0S1 ) ; 
POS -HASH (DATA_PTR->t3eLEMENT. INFO , TEST _LEN) ; 
PTR_TO_ENTRY(POS)=DATA_PTR; 

END; 

/»  OTHERWISE  CHAIN  TO  CATALOGUE  ENTRY  */ 

ELSE  C AT_PTR- >P_ ARRAY (CAT  PTR->L  P0S2 ) *OATA_PTR ; 
RETURN; 


/*  NOT  FIRST  ELEMENT  IN  PSET  */ 

ELSE  IF  CAT_PTR->L_TYPE=B_TREE 
THEN  DO; 

/*  IF  ELEMENT  IS  LESS  THAN  ELEMENT  POINTED  TO  BY 
ID.POS, CHAIN  AS  A  LEFT  DESCENDANT  */ 

IF  SUQSTR(ID_POS->T_ELEMENT. INFO, CAT  PTR->KEY  POS, 

C AT_PTR->KEY_LEN)  >  SUBS T R ( DATA  PTR-> T_ELEMENT . INFO, 
CAT_PTR->K£Y_POS,CAT_PTR->KEY  LEN)  THEN 
I D_PQS->T_ELEMENT ,P_ARRAY (CAT  PTR->L  P0S1)«DATA  PTR; 


CRP00640 
CRP00650 
CRP00660 
CRP00670 
CRP00680 
CRP00690 
CRP00700 
CRP00710 
CRP00720 
CRP00730 
CRP00740 
CRI'00750 
CRP00760 
CRP00770 
CRP00780 
CRP00790 
CRP00800 
CRP0081 0 
CRP00820 
CRP00830 
CRPOOB40 
CRP0OB5O 
CRP00860 
CRP0OB7O 
CRPCOBBO 
CRP00B90 
CRP00900 
CRP0091 0 
CRP00920 
CRP00930 
CRP00940 
CRP00950 
CRP00960 
CRP00970 
CRP009BO 
CRP0099 0 
CRP01000 
CRP0101 0 
CRP01020 
CRP01030 
CRP01040 
CRP01050 
CRP01060 
CRP01070 
CRP01080 
CRP01090 
CRP01 100 
CRP01 1 10 
CRP01 120 


/«  OTHERWISE  IT  MUST  BE  A  RIGHT  DESCE NOENT , AND 
ACCORDINGLY  */ 

ELSE  DO; 

DATA  P T R-> T_E LEMENT .P_ARRAY(CAT  PTR->L_POS2)- 
ID_POS->T_ELEMENT.P_ARRAY (CAT_PTR->L  p5S2) ; 

I 0_PQS->T_ElEM£N  f . P  _ARR AY ( CAT_PT  R->L~  POS2 ) 

»  OAT A_P T R ; 

ENO; 


/«  IF  HASHED  OR  LINEAR  CHAIN  TO  ELEMENT  POINTED  TO  BY 
ID  POS  */ 

ELSE  OO; 

DAT  A_  PTR->T_ELEMENT . P_ ARRAY (CAT  PTR->L  P0S2)» 
IO_POS->T_ELEMENT .P_ARRAY(CAT  PTR->L  P0S2  )  • 

ID_POS->T_ELEMENT.P_ARRAY( CAT_PTR->L  P0S2)-DATA. 

END; 

RETURN; 

END  CHAIN; 


END  CREATEP; 


CHAIN  CRP01130 
CRP01 140 
CRP01 150 
CRP01 160 
CRP01 170 
CRP01 180 
CRP01 190 
CRP01200 
CRP0 1 2 1  0 
CRP01220 
CRP01230 
CRP01240 
CRF0I350 
CRP01260 
CRP0I270 
,PTR{  CRP01280 
CRP0I290 
CRP01300 
CRP01310 
CRP01320 
CRP01 330 
CRP01340 


XINCLUOE  SEARCH; 
. . 


description 


SEARCH:  PROCEDURE 


*  ODE  , 

>  SCT  naME  , 

)  ATA I . 

;  OAK, 

[  D  CHAIN 


/*  B I T ( 2 )  ./ 

/•  B 1 T ( 64  )  •/ 

/«  BIT(.)  ./ 

/«  PTR  •/ 

/*  PTR  */  ); 


PURPOSE : 

THIS  M 
OR  MOR 
KC  Y  SP 
MODE  . 
STRUCT 


ODULE  IS  RESPONSIBLE  FOR  RETRIEVING  THE  IDS  OF  1 
E  ELEMENTS  WITHIN  THE  PSET  PSET  NAME. GIVEN  THE 
ECIFIEO  BY  DAT  A 1 ,  AND  THE  SEARCH  MODE  SPECIFIED  BY 
IT  RETURNS  THE  IDS  OF  THE  ELEMENTS  FOUND  IN  A  CTL 
URE  CALLED  IDS1 . 


METHOD: 


THE  SE 
(hASHE 
ELEMEN 
OR  ALL 
FOI  LOW 

A)  RET 
PSE 
FCA 
CN 

B)  IF 
MAT 
DIP 
ROU 
TO 
AMI 
FOU 
MA  T 

the 

the 

C)  IF 
A  L 

FIRST 
IF  LIN 
IF  HAS 


ARCH  METHOD  OEPENDS  ON  BOTH  THE  PSET  ORGANIZATION 
D.B.TREE  OR  LINEAR),  AND  THE  SEARCH  MODE  (  FIRST 
T  WHICH  MATCHS  KEY,  ALL  ELEMENTS  WHICH  MATCH  KEY, 
ELEMENTS  WITHIN  THE  SET  ).  GENERAL  LOGIC  IS  AS 
S: 

R I  EVES  PSET..CAT  ENTRY  FOR  PSET  IDENTIFIED  BY 
T.NAME.  THIS  IS  DONE  VIA  A  HASH  SEARCH  OF  THE 
f'pSET.  VIA  A  STRING  OVERLAY, CAT.tNTRY  IS  OVERLAID 


►SEAOOOI 0 
FOROOO 1 0 
FOR00020 
FOR00030 
FOR00040 
FOROOOSO 
FOR00060 
FORC0070 
FOR0C030 
FQR00090 
FOROOIOO 
FORGO  1 1 0 
FOR00120 
FOROOI 30 
FOR00140 
FOROOtSO 
FOROOI 60 
FOROOI 70 
FOROO10O 
FOR00190 
FOR 00200 
FORC02I0 
FORC0220 
FOR00230 
FOR00240 
FOR002S0 
FOR00260 
FOR00270 
FOROO20O 
FOR00290 


THE  BCU  CONTAINING  THE  PSE’.CAl  ENTRY  FOR  THE  PSET.  FOR00300 

THE  SEARCH  MODE  IS  FIRST,  OR  AIL  ELEMENTS  WHICH  FOR00310 

CH  KEY.  H_SEARCH,  B  SEARCH, OR  l. SEARCH  IS  CALLED  FOR00320 
ELDING  ON  THE  PSET  ORGANIZATION?  (HF SE  ARE  INTERNAL  FCR00330 
TINES  A'HIH  RETURN  2  POINTERS,  )DI  WHICH  JS  A  POI  NT  ERFORC0340 
I  HE  FIRST  OCCURENCE  OF  the  ELEMENT,  AND  ID.CHAIN  FOR00350 
CH  IS  A  PTR  TO  THE  I  AST  OCCURtt.cC  OF  THE  ELEMENT  FOR00360 

NO.  (IF  NO  ELEMENT  WAS  FOUND  WHICH  FOR00370 

CHEO  THE  KEY,  IO.CHAIN  POINTS  10  THE  BEU  TO  WHICH  FOR00380 

IFMENT  SHOULD  BE  CHAINED).  IDS1  IS  SET  EQUAL  TO  FOR00390 

POINTER  FOUND  FOR00400 

ALL  ELEMENTS  WHICH  MATCH  KEY  WAS  SPE C I F I  ED . THEN  FOR00410 

INEAR  SEARCH  IS  INVOKED  SMARTING  AT  THE  FIRST  FOR00420 

MATCH  AND  GO  INC  UNTIL  NO  OTHER  MATCHES  ARE  FOSSIBLE. FOR 00430 
EAR  ORGANIZATION  THIS  MEANS  UNTIL  THE  END  OF  THE  SETFOR00440 
HEO ,  TO  THE  END  OF  THE  OVERFLOW  CHAIN.  IF  B  TREE  FQR00450 
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*  «  *  *  * 
•  *  *  *  * 


*  *  •  *  * 

♦  •  *  ♦  ♦ 


UNTIL  THE  RIGHT  DESCENDENTS  NO  LONGER  MATCH.  EVERY  ID  FOR00460 
RETURNED  IS  PLACED  CM  THE  IDSl  STACK.  FOR00470 
D)  IF  THE  IDS  OF  ALL  ELEMENTS  IN  THE  SET  ARE  TO  BE  FET CHEDFOR00480 
3  OTHER  ROUTINES  ARE  CALLED  L1NEAR_H,  LINEAR_B.  AND  FOR00490 
LINEAR  L.  LINEARH  PERFORMS  a  linear  SEARCH  OF  The  SET'S  FOR00500 
SCATTER  TABLE  AND  OVERFLOW  CHAINS,  AND  RETURNS  THE  IDS  OF  FOR00510 
ALL  ELEMENTS  FOUND-  LiNEAR.B  PERFORMS  AN  I N_ORDER  FOR00520 
TRAVERSAL  OF  A  BINARY  TREE.  AND  RETURNS  THE  IDS  FOUND.  FOR00530 
LJNF.AR_L  PERFORMS  A  SIMPLE  LINEAR  SEARCH.  FOR00540 


INPUT  PARAMETERS: 

MODE  -  SPECIFIES  THE  SEARCH  MODE: 

•  0 1  '  B  -  FIRST  ELEMENT  WHICH  MATCHES  KEY. 
' 1 0 ' B  -  ALL  ELEMENTS  WHICH  MATCH  KEY. 

•  1  I  *  B  -  ALL  ELEMENTS  IN  SET. 

PSE  T  _N  AME  -  NAME  OT  PSET  TO  BE  SEARCHED 
DATA!  -  KEY  TO  SF.aRCH  ON,  IF  MODE  -  'If'B  THEN 
NOT  USED. 

IOXX  -  NOT  CURRENTLY  USED. 

IO.CHAIN  -  NOT  USE 0  ON  INPUT 


***** 

***** 


calls  procedures: 

HASH,  (H_SE ARCH, L .SEARCH , B.SE ARCH , U  NEAR.H , 1 1 NE A R_B 
LlNEAR.l)  internal 


/•  PSET.CAT  TEMPLATE  •/ 

X  INCLUDE  PSET CAT: *♦ 

/*  PSET .CAT  TEMPLATE  */ 
DCL  1  CAT. ENTRY  8ASEO(P), 


F  OR005S0 
F  ORPOS60 
FOROOS70 
F  OR00580 
FOR00S90 
FOROOGOO 
FOROOGIO 
FOROOG20 
FDR00630 
FOROOG40 
F  OROOGSO 
FOROOGGO 
FOR00670 
FOROOGBO 
FDR00690 
FOR00700 
FOR007 1 0 
FOR00720 
FOR00730 
FOR00740 
FOR0C750 
FOR00760 
FOR0O770 
FOR00780 
FOR00790 
FOR00800 
SEAOOOIO 
SEA00020 
SEA00030 

**.*•*»****..**.*,«*.*.*. ♦•••♦♦***SEA00040 

BCA00I30 

/♦  BASED  ON  ID  OF  PSET.CAT  BEU  */  BCA00140 


output  parameters: 

1DS1  -  A  CONTROLLED  STACK  OF  POINTERS  CORRESPONDING 
TO  THE  RETREIVEO  IDS. 

1D.CHAIN  -  A  PTR  VALUE  WHICH  POINTS  TO  BEU  TO  WHICH 
ELEMENT  SHOULD  BE  CHAINED  IF  NOT  FOUND, 
OTHERWISE  POINTS  TO  THE  LAST  OCCURENCE  FOUND 
DURING  SEARCH. 


2 

I  ENG  TH  FIXEO  BIN<  f 5) , 

/* 

LENGTH  OF  CAT  ENTRY  */ 

BCA00150 

2 

P  AR  RAY (16)  POINTER, 

/• 

PTR  ARRAY  FOR  LINKING  •  / 

BCA00160 

2 

OATA  , 

/• 

INFO  ON  PSET  ORGANIZATION  */ 

8CA001 70 

3  NAME  B 1 T ( 64 ) , 

/* 

NAME  OF  PSET  */ 

BCA001B0 

(  3  SP.MAP, 

/* 

MAP  OF  POINTER  ARRAY,  */ 

BCAOO 1 90 

3  AP.MAP  )  B  I  T ( 1 6 )  , 

/• 

GIVING  STATUS  OF  P.SLOTS  •/ 

ECA00200 

3  NUMFREE  BIT(8), 

/* 

NOT  USED  •  / 

BCA002 1 0 

3  SEARCH.INFO, 

/* 

LINKAGE  INFORMATION  •/ 

BCA00220 
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(  4  L.TYPE,  /♦  TYPE  OF  LINK  (HASHED  ETC .  . ) */BCA00230 

4  L_POS 1  ,  /«  PTR  SLOT  USED  FOR  CHAINING  */BCA00240 

4  L_POS2  ,  /•  ADDITIONAL  PTR  SLOT  FOR  LINK  */DCA00250 


4  KEY.POS,  /»  STARTING  POSITION  OF  KEY  */  BCA00260 

4  KEY_LEN  )  a  I T ( a )  .  /.  LENGTH  OF  KEY  •/  BCA00270 

3  SET_  T  Y  PE ,  /♦  SET  TYPE  INFO  •/  BCA00280 

(  4  SUBSET,  /•  IF  PRIMARY  OR  SUBSET  •/  BCA00290 

4  SUliSE T _ I D ,  /*  PTR  SLOT  FOR  SUBSET  LINK  */  8CA00300 

4  P_CtlAIN,  /*  PTR  SLOT  PTS  TO  PRIMARY  DCL»/BCA003 ! 0 

4  S_CHA1N  )  BIT(B),  /♦  SUBSET  DCL  CHAIN  */  BCA00320 

3  DATAJ.EN  B! T ( 15) ;  /»  LENGTH  OF  ELEMENTS  */  BCA00330 

•  MtMMtMMMM  SEA00040 

%  INCLUDE  6EU; ••«**»♦•♦•*»*«*♦•*♦•*••*..».♦*.»***»♦•♦•.»***.*•»*** SE A00C50 
/*  BEU  TEMPLATE  */  BCA0C350 

3  1  0  DCL  1  T_ElEMENT  BASED ( 0 ) ,  BCA00360 

2  LLNGTH  FIXEO  8lN(15),  BCA00370 

2  P_ARRAY(I6)  PTR.  BCA00380 

2  INFO.  BCAC0390 

3  DATA  BIT<320);  BCA00400 

*♦**•••••••♦•  SEAC0050 

/•  Ml  C  DECLARATIONS  •/  SEA00060 

4  10  DCL  MODE  B  I T  ( 2 )  ,  SEA00070 

|  FIRST  BIT(C)  INIT('OI'B),  SEAC0080 

ALL.SCT  B 1 T ( 2 )  I N I T ( 1 1 1 ' B  ),  SEA00090 

ALL. SAME  9 1 T ( 2 )  INIT('IO'B);  SEA00100 

X  INCLUDE  PSETS  M; ♦. SE AO0 11 0 
/•  PSET  LINK  TYPES  */  BCA00540 

5  1  0  DCL  HASHED  6IT(y)  I N I T ( ' 0000000 1  * B  )  ,  BCA00550 

B_T,<EE  BIT(B)  I N I  T  (  'OOOOOOIO'B),  BCA00560 

L!  EAR  B l T ( a  >  1NIT (' 00000100 ' B ) ;  BCA00570 

SEA00110 
SEA00120 

/*  POINTS  TO  PCAT  ENTRY  FOR  PCAT  PSET  DESCRIPTION  •/  SEA00130 

6  1  0  DCL  PCATPTR  POINTER  EXTERNAL  STATIC;  SFA00140 

SEA00150 
SEA00160 

7  1  0  DCL  ( P , 0 . I D_CHA IN. ID1 , ID_START  )  POINTER;  SEA00170 

SEAC0180 

/*  POINTER  STACK  RETURNED  BY  SEARCH  */  SEA00190 

X  INCLUDE  I0S1  ;»»**»»«»*»*4»»»«»»*»*»t»-»**»»**»*****»******************S£A00200 
/*  POINTER  STACK  RETURNED  BY  SEARCH  */  BCA00420 

B  1  0  DCL  IDS1  PTR  EXTLRNAL  CONTROLLED;  BCA00430 

*«*•♦**«•»•**•  SEAC0200 

SEA00210 

/•  MISC  DECLARATIONS  »/  SEA00220 

9  1  0  DCL  1DXX  POINTER  CONTROLLED;  SEA00230 

10  1  0  OCL  T _DAT A 1  B I T ( 1 28 )  VARYING;  SEA002A0 

11  1  0  DCL  P  _C A  T  B I T ( 64 )  STATIC  EXTERNAL,  SEA00250 

PSE-..NAME  B1  T  (  54 )  .DATAl  6IT(«),  SEA00260 


/*  EXTERNAL  PROCEDURES  CALLED  */ 

( PR I NT P , PRINT  IT)  EXTERNAL  ENTRY; 

X  INCLUDE  EHASH 

/ •  HASHING  MODULE  •/ 

0  DC L  HASH  ENTRY(8IT(64) . FIXED  BIN(tS))  RETURNS! F I XEO  BIN(15)); 


/•  GET  .0  FOR  PSCT_CAT  ENTRY  FOR  PSET  •/ 

P  =  PC  A  T PT  I ; 

CALL  H_ScARCH(PSET_NAME , 101 , I D_CHA IN); 

/•  OVERLAY  CAT_£NTRY  ON  PSET_CAT  BEU  FOR  PSET  */ 

P=ID1  ; 

/•  EXTRACT  KEY  FIELD  FROM  DATA  STRING  PASSED  TO  SEARCH  •/ 

T_DAT  A1-SU3STR(0ATA1 , KE Y_POS , KEY_LE N ) ; 

/»  DISPATCH  APPROPRIATE  INTERNAL  SEARCH  ROUTINE  */ 

IF  MOOE=FIRST  J MODE = ALL .SAME 
THEN  DO; 

I F  L  TYPE=HASHEO  THEN 

'CALL  H  SEARCH! T_DATA1 . IDt , ID  CHAIN); 

ELSE  IF  L_TVPE=B_TREE  THEN 

CALL  B  SEARCH! T_DATA1 , 1D1 , ID  CHAIN); 

ELSE  CALL  L _S E ARCH ( T _DAT A  1 , CAT_ENTRY . P_ARRAY ( L_P0S2 ) 
. ID1 , 1D_CHAIN) ; 

/*  IF  VALUE  FOUND  PUT  POINTER  ON  STACK  */ 

I F  IDI *=NULL( )  THEN 
DO; 

ALLOCATE  IDSt; 

1051=101 ; 

END; 

/•  OTHERWISE  return  •/ 

ELSE  RETURN; 

IF  MOOE=ALL_S6ME  THEN 

/*  DO  LINEAR  SEARCH  FOR  REMAINING  ELEMENTS  */ 

00  WHILE!  I  Dl  * •NULL (  )  ); 

/*  SET  START  TO  NEXT  BEU  AFTER  LAST  MATCH  •/ 
1D_START=  ID  t->T_E  LENIENT.  P_  ARRAY  (  L_P0S2  )  ; 

CALL  L_SEARCH(T_DATA1 , ID  STAR T , ID? , I D_CHA IN) 
IF  I01"=NULL()  THEN 

/*  IF  MATCH  FOUND  PUT  ID  ON  STACK  »/ 
DO; 

ALLOCATE  iDSi; 

I0S1  —  I D 1 ; 


SEA00270 
SEA00280 
•SEA00290 
DEC00020 
DEC00030 
SEA00290 
SEA00300 
SEA00310 
SEA00320 
SEAC0330 
SEA00340 
SEA00350 
SEA00360 
SEA00370 
SEA00390 
SEA00390 
SEA00400 
SEA00410 
SEA00420 
SEA00430 
SE  A00440 
SEA00450 
SEA00460 
SE  A0047  0 
SE  A004B0 
SEA00490 
SE A00500 
SEA005I0 
SEA00520 
SEA00530 
SEA00540 
SEA005S0 
SE A00560 
SEA00570 
SE  A005R0 
SEA00590 
SEAC0600 
SEA00610 
SEA00620 
SEA00G30 
SEA00640 
SEA006S0 
SEAC0G60 
; SE A00670 
SEA00680 
SEA00690 
SEA00700 
SEA00710 
SEA00720 
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i 


32 

1 

3 

I D_S  T  AR  T • I 01 5 

SEA00730 

33 

1 

3 

END; 

SEA00740 

34 

1 

2 

END; 

SEA00750 

3b 

1 

1 

RETURN: 

SEA00760 

36 

1 

1 

ENO; 

SEA00770 

/*  IF  ALL  OF  SET  TO  BE  RETRIEVED  DISPATCH  APPROPRIATE  ROUT I NE*/SE A007B0 

37 

1 

0 

IF  MODE=ALL  set  then 

SEA00790 

DC; 

SEA00800 

38 

1 

1 

IT  L_T  YPE  ^HASHED  THEN 

SEA00810 

CALL  L I N£ AR_H ( IDSl ) ; 

SEA00820 

39 

1 

1 

ELiE  IF  L_T Y  PE  =  B_T  REE  THEN 

SEA00830 

C  A LL~L  I NEAR  B(  10S1  > ; 

SEAC0840 

40 

1 

1 

ELSE  CALL  L I NL AR_ L ( C A T_ ENT RY . P  ARRAY ( L  P0S2),IDS1); 

SEA00950 

41 

1 

1 

ENO; 

SEA00350 

42 

1 

0 

RETURN; 

SEA00670 

/«  UTILITY  SUBROUTINES  USED  BY  SEARCH  */ 

SEA008H0 

SEA00890 

43 

1 

0 

L_SEARCH:  PROC<  T_UATA1  .START  ,  1D1A,  ID1B)  ; 

SEA00900 

44 

2 

0 

DCL  T  0ATA1  BIT(*|. 

SEA00910 

(START .ID1A.I01B)  POINTER; 

SEA00920 

SEA00930 

4b 

2 

0 

ID1B=NULL( ) ; 

SEA00940 

/*  FOLLOW  POINTER  CHAIN  LINKING  ELEMENTS  IN  PSET  */ 

SEA00950 

46 

2 

0 

DO  IDIAsSTART  REPEAT  I D 1 A->T_ELEMEN T . PJLRRAY  (  L  P0S2) 

SEA00960 

WHILE (  I D1 A~  =NUL  L ( ) ) ; 

SEAC0970 

47 

2 

1 

ID13-I D1A; 

SEA00980 

48 

2 

1 

IF  T  0ATA1sSUBSTR( ioia->t_element.data.key_pos,key_len) 

SE A00990 

THEN  RETURN; 

SEA01000 

49 

2 

1 

END; 

SE AO  1010 

50 

2 

0 

RETURN; 

SE A0 1 020 

51 

2 

0 

END  L_SEARCH; 

SE  A0 1 030 
SE A0 1 040 

52 

1 

0 

H_SEARCH:  PROC ( T  _DATA1  . ID1A, ID1B); 

5EA01050 

SEA01060 

53 

2 

0 

DCL  T  _  DAT  A 1  B I T  (  •  )  ,  (I01A.I01B)  POINTER, 

SE A0 1 070 

0  POINTER.  INDEX_POS  FIXED  BIN, 

SE A0 1 080 
SE A0 1 090 

/*  TEMPLATE  FOR  SCATTER  TABLE  */ 

SEA01 100 

1  T_INDEX  BASEO(O)  . 

SE A0 1 110 

2  NAME  B I T ( 64  )  , 

SEA01 120 

2  L.HASH  FIXED  BIN( 15)  , 

SEA01 130 

2  PTR_TO_ ENTRY! 50)  POINTER; 

SE A0 1 140 
SEA01 150 

54 

2 

0 

ID1 B»NULL(  )  ; 

SEA01 160 

/*  HASH  INTO  SCATTER  TABLE  USING  KEY,  AND  LENGTH  IN  T  INDEX  •/ 

SEA01 170 

55 

2 

0 

I NOEX  _POS-H  ASH ( T  DAT A1 , P->CAT_ENTRY . P  ARRAY ( L  POsT)->L  HASH); 

SEA01 180 

SEA01 190 

/♦  CHECK  BEU  POINTED  TO  BY  T-INOEX  ENTRY.  IF  NO  MATCH  FOLLOW  SEA01200 
OVERFLOW  CHAIN  »/  SEA01210 


r 


36 

2 

0 

00  I D 1 A  =  CAT  ENTRY. P_ARRAY(L_P0S1 )->PTR_T0  ENTRY ( INDEX.POS ) 

SEA01220 

REPEAT  I01A->T_ElEMENT.P_AKRAY(l_POS2) 

SEA0I230 

WHIl£(  1 0 1  A" =  NUL  L ( )  )  ; 

SE A0 1 240 

67 

2 

1 

1016=1 01  A ; 

SE  A0 1 250 

68 

2 

1 

IF  T_0ATA1=SUBSTR(  I01A->T_ELEMENT. DAT  A , KE Y_P0S , KE V_LEN ) 

SE AO  1 260 

THEN  RETURN; 

SEA01270 

69 

2 

1 

END; 

SE  A0 1 280 

60 

2 

0 

RETURN; 

SE  A0 1 290 

6 1 

2 

0 

ENO  H.SEARCU; 

SE A0 1 300 
SE  AO  t  3 1 0 

62 

1 

0 

6 _5EARCH :  PROC<  T  _DATA1 . !Dt A .  IDIB) ; 

SE  A0 1 320 

63 

2 

0 

DCL  T  0AIA1  8 1 T (.•  )  ,  (IOiA.IDIB)  POINTER; 

SEA01330 

64 

2 

0 

ID16=HULL(  )  ; 

SE  AO  I 340 
SE  A0 1 350 

66 

2 

0 

101 A=CAT_ENTRY . P_ ARRAY( L.P0S2  )  : 

SC  AO  1 360 

66 

2 

0 

DO  WHILE  ( I 01 A‘=NULL( ) ) ; 

SEA01370 

67 

2 

1 

1016=1 01  A; 

SE A0 1380 

68 

2 

1 

IF  T_0ATA1 =SUBSTR( 1 D1A->T .ELEMENT. DAT A. KEY.POS.KEV.LEN) 

SE A0 1 390 

THEN  RETURN; 

SE  A0 1 400 

69 

2 

1 

ELSE  IF  SUBSTH(ID1A->T_ELEMENT.DATA.KEY_P0S,KEY_LEN)>T_DATA1 

SE A0 1410 

then  ioia=ioi a->t_element .p  arrayu  posi); 

SE  AO  1420 

70 

2 

1 

ELSE  I01A  =  ID1A->T_E LEMENT . P  ARRAY ( L~P0S2) ; 

SE A0 1 430 

71 

2 

1 

END; 

SE  AO  1 440 

72 

2 

0 

RETURN; 

SE AO  1 450 

73 

2 

0 

END  B.SEARCH; 

SE AO  1 460 
SEA01470 

74 

1 

0 

LINEAR  L:  PROC(START, IOSI 1 ) ; 

SE AO  1 480 

75 

2 

a 

DCL  (ID. START)  POINTER,  IDS11  POINTER  CONTROLLED; 

SE  AC  1 490 

76 

2 

0 

00  » D ; ST AR T  REPEAT  10-> T .ELEMENT . P_ ARRAY ( L.P0S2 ) 

SE A0 1 500 

WHILE  ( IO*=NULL( ) ) ; 

SE AO  1510 

77 

2 

i 

ALLOCATE  IOSI 1 ; 

SE  A0 1 520 

78 

2 

i 

IOSI  1  =  10; 

SE  AO  1 530 

79 

2 

i 

END; 

SE  A0 1 54  0 

80 

2 

0 

RETURN; 

SE  A0 1 550 

81 

2 

0 

END  LINEAR.L; 

SE A0 1 560 
SF.A01570 

82 

1 

0 

LlNEAR.H:  PROC(IOSII); 

SE A0 1 580 

83 

2 

0 

OCL  10311  POINTER  CONTROLLED,  ID  POINTER, 

SE AO  1 590 

1  T.INOEX  8  ASED ( 0 ) , 

SE A0 1 600 

2  NAME  BIT (64), 

SEA0IE10 

2  HASH _ LEN  FIXED  BIN(15), 

SE A0 1 620 

2  PTR_TG_ENTRY(60)  POINTER, 

SE AO  1630 

q  POINTER; 

SE A0 1 640 

84 

2 

0 

0=CAT  ENTRY . P_ ARRAY ( L.P0S1 ) ; 

SE A0 1 650 

85 

2 

0 

DO  J* 1  TO  50; 

SE A0 1 660 

86 

2 

i 

00  IO=g->PTR_TO_ENTRY( J)  REPEAT 

SE A0 1 670 

I 0->T .ELEMENT, P.ARR A Y ( L_P0S2 ) 

SE A0 1 680 

whiieFiO'-nulu  )): 

SEA01690 

87 

2 

2 

ALLOCATE  !OSt  1  ; 

SEA01700 

87  2  2 


88 

2 

2 

I 0S1 1 « ID; 

89 

2 

2 

END; 

90 

2 

1 

END; 

91 

2 

0 

RETURN; 

92 

2 

0 

END  LINE AR_H ; 

93 

1 

0 

L INEAR  B:  PROCl IDS1  1  ) : 

94 

2 

0 

DCL  { IDS11 , IOTEMP 1  POINTER  CONTROLLED, 

Q  POINTER, FLAG  BIT ( 1  ) ; 

35 

2 

0 

0=  CAT  _E  TRY . P_ARRAY( L_P0S2) ; 

96 

2 

0 

FLAG=‘ 1  B: 

/•  DO  A  INOROER  OEPTH  FIRST  TRAVERSAL  •/ 

97 

2 

0 

DO  WHILE  (FLAG); 

/*  GET  TO  BOTTOM  ELEMENT  IN  BRANCH  */ 

DO  WHI LE(Q" =NULL( ) ) : 

/•  TEMPORARY  STACK  FOR  NODES  PASSED  ON  WAY  OOWN  */ 
ALLOCATE  IOTEMP; 

I 0TEMP=0: 

q-q->t_element.p_array( l_posi); 

end; 

/•  WORK  YOUR  WAY  BACK  UP  BRANCH  */ 

1 03  2  1  IF  ALLOCATION* IOTEMP)'. 0  THEM 

DO; 

1 04  2  2  ALLOCATE  I D5 1 1 ; 

105  22  I0S1 I=IDTEMP; 

106  2  2  Q=lOTEM°->T_ELEMENT.P_ARRAY(l_P0S2); 

107  2  2  FREE  IDTEMP; 

108  22  END; 

109  2  1  ELSE  RETURN; 

110  2  1  END; 

111  2  0  END  UNEAR_8; 

112  1  0  ENO  SEARCH; 


98  2  1 

99  2  2 

100  2  2 

101  2  2 

102  2  2 


SE A0 1710 
SE A0 1 720 
SE A0 1 730 
SEA01740 
SEA01750 
SEA01760 
SEA0I770 
SEA0I760 
SEA01790 
SE  A0 1 800 
SE A0 1810 
SE  AO  1 820 
SEA01830 
SE  A0 1 890 
SE AO  1 850 
SEA0I850 
SE  A0 1 870 
SE  AO  1 880 
SE A0 1 890 
SE  40 1 900 
SE AO  1910 
SE  A0 1 920 
SE AO  1 930 
SE AO 1 990 
SEA019S0 
SE  A0 1 960 
SEA01970 
SE A0 1 980 
SE A0 1990 
SEA020Q0 
SEA02010 
SEA02020 
SEA02030 
SEA02040 


%  INCLUDE  FETCH; < 


SEA02C60 

►SEA02070 


/**•*•* 

#♦****  *»•*  +  +  *•> 

»  *  *  •  ■ 

FE  T  000 1 0 

* 

« 

FE  T  00020 

* 

MODULE 

DESCRIPTION 

♦ 

FE  T 00030 

♦  •*««**♦»»**  ♦**♦****! 

t  »  *  •  < 

FET  00040 

FETCH: 

PROCEDUP! 

F  E  T  00050 

(MOOEt , 

/* 

B I  T ( 2  )  •  / 

FET  00060 

ID. 

/* 

PTR  •/ 

FE I 00070 

N  AME . 

/• 

B I  T ( 64 )  */ 

EET0C080 

KEY, 

/' 

b  i  r  <  * )  */ 

FET  00090 

F  NO 

/• 

BIT(1)  */  ); 

FET  00 1 00 

/+»«*** 

»  *  *  *  l 

FETOOI 10 

PURPOSE: 

THIS  MODULE  IS  RESPONSIBLE  FOR  RETRIEVING  THE  DATA  POR- 
OF  BEUS  CONTAINED  WITHIN  A  PARTICULAR  PSET .  DEPENDING 
ON  THE  MODE,  IT  WILL  EITHER  RETURN  ALL  OF  THE  ELEMENTS 
IN  A  PSET,  OR  JUST  THE  FIRST  ELEMENT  WHICH  MATCHS  THE 
KEY.  OR  ALL  OF  THE  ELEMENTS  IN  THE  SET  WHICH  MATCH  THE 
KEY.  IT  RETURNS  A  CONTROLLED  STACK  OF  BIT  STRINGS  COR¬ 
RESPONDING  TO  THE  DATA  ELEMENTS  FOUND. 


FE I  00 1 20 
F  E  T  00 1 30 
F  E  T  00 1 40 
FET00150 
F  E I  00 1 60 
F  E  T  00 1 70 
FET00I80 
FE  T  00 1 90 
FE  T  00200 
F  E 1 002  I  0 
FEIC0220 


••••»«•«»• *»•*»»*««****»♦. FET00210 
METHOD.  FEIC0220 

THIS  MODULE  IS  BASICALLY  AN  INTERFACE  TO  THE  SEARCH  MODULEF E T 00230 
Th£  SEARCH  MODULE  IS  RESPONSIBLE  FOR  RETRIEVING  PTRS  TO  FET0P240 
THf  BEUS  CONTAINING  THE  DESIRED  DATA,  AND  THE  FETCH  MODULEFE T00250 
SIMPLY  EXTRACTS  THE  DATA  PORTION  OF  THOSE  BEUS  AND  RETURN5F E T 00260 
A  CONTROLLED  STACK  OF  BIT  STRINGS,  CORRESPONDING  TO  THOSE  FETC0270 
DATA  ELEMENTS.  CALLED  INFO.ND.  THE  STRATEGY  IS  AS  FOLLOWS : F E T 00260 
A)  IF  ID  (AN  INPUT  PARAMETER)  IS  NULL,  THEN  THE  SEARCH  FET00290 

ROUTINE  IS  CALLED  TO  RETURN  A  STACK  OF  PTRS  TO  THE  FET00300 

RELEVANT  BEUS.  SEARCH  IS  PASSED:  FET00310 

M0DE1  -  The  DESIRED  RETRIEVAL  MODE.  FE 1 00320 

NAME  -  NAME  OF  THE  PSET  INVOLVED  (  FET003J0 

MAY  BE  A  SUESET  OF  ANOTHER  PSET).  FET00340 
KEY  -  KEY  TO  SEARCH  ON.  FET00350 

IDXX.Z  -  NOT  SIGNIFICANT.  FET00360 

ONCE  SEARCH  HAS  RETURNED,  FETCH  GOES  THROUGH  THE  PTR  FET00370 
STACK  BY  USING  THE  TOP  CF  THE  STACK  AS  A  PTR  TO  A  BEU,  FET00380 
USING  A  BTU  TEMPLATE  TO  EXTkaCT  THE  DATA  PORTION,  AL-  FET00390 
LOCATING  l NFO_ND ,  AND  SETTING  THE  CURRENT  ALLOCATION  FET00400 
OF  INFO.NO  TO  E QU  A THE  EXTRACTED  DATA.  THE  TOP  OF  THE  FET004I0 
PTR  STACK  IS  THEN  POPPED  AMD  THE  PROCESS  CONTINUES  UNTIFET00420 
THE  PTR  STACK  IS  EMPTY.  FET00430 

6)  IF  ID  IS  NOT  NULL,  THEN  AN  ALTERNATIVE  APPROACH  IS  FET00440 
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*  *  9  * 

*  «  «  * 


»  *  •  ♦ 
♦  *  *  * 
*  *  *  * 


*  «  •  « 
m  *  *  • 
<*  *  *  • 
•  *  *  * 
*  *  «  « 
*  •  »  * 


♦  •  *  * 
•  *  «  » 
*  «  *  * 


»  ♦  *  » 
•  *  *  • 
♦  ♦  «  • 
«  »  «  ♦ 

*  *  *  ft 

♦  *  ¥  * 


•  »  +  ■* 
*  •  *  » 


■  *  *  * 
‘  •  *  * 


IS  TAKEN.  IN  THIS  CASE  THE  10  IS  ASSUMED  TO  POINT 
TO  THE  OEISRED  BEU  AND  NO  SEARCHING  IS  NECESSARY.  THE 
BEU  TEMPLATE  IS  USED  TO  EXTRACT  THE  DATA  PORTION  OF 
THE  BEU  POINTED  TO  BY  ID,  AND  AN  ALLOCATION  OF  INFO_NO 
IS  CREATED  TO  RETURN  THE  DATA. 


*#■*•***«•****#  #*4***i 

INPUT  PARAMETERS: 


MOCFT  -  THE  RETRIEVAL  MODE  (SAME  AS  FOR  SEARCH  ROUTINE) 

1 0 1  ‘  D  -  FIRST  ELEMENT  MATCHING  KEY 

1 1 0 ' B  -  ALL  ELEMENTS  MATCHING  KEY 

*  1 t  *  B  -  ALL  ELEMENTS  IN  SET.  REGARDLESS. 

ID  -  A  PTR  WHICH  IS  EITHER  NULL  OR  POINTS  TO 
A  BEU  CONTAINING  THE  DESIRED  DATA.  NOTE: 

IF  ID  I SN ‘ T  NULL  THEN  FETCH  ASSUMES  THAT 
IT  IS  A  VALID  BEU  REFERENCE. 

NAME  -  THE  NAME  OF  THE  PSET  WHICH  CONTAINS  THE 

ELEMENTS  TO  BE  FETCHED.  IT  MAY  BE  A  SUBSET 
OF  ANOTHER  PSET.  IN  EITHER  CASE,  HOWEVER, 

THE  PSET  MUST  HAVE  BEEN  PREVIOUSLY  DEFINED 
KEY  TO  BE  SEARCHED  ON  WITHIN  PSET. 

AND  LENGTH  TAKEN  FROM  PCAT  ENTRY. 

IF  ALL  ELEMENTS  TO  BE  FETCHED  THEN  KEY 
DISREGARDED 

NOT  SIGNIFICANT  ON  INPUT. 

*  #  ♦  •*•*#:**•*****  +  *•****••**# 


KEY 


FND 


#********  +  ***»*****♦**♦*♦♦*******.* 

OUTPUT  PARAMETERS: 

FND  -  IF  ATlEAST  1  ELEMENT  WAS  FETCHED  THE 
EQUAL  TO  1 1 1 B ,  OTHERWISE  EQUALS  ’0*8 
JNFO_ND  -  AN  EXT  CIL  BIT  STRING  OF  LENCTH(320)  USEO 
TO  RETURN  THE  DATA  ELEMENTS  FOUND.  SINCE, 
SEARCH  RETURNS  A  CONTROLLED  STACK  OF  POINTERS 
WHICH  ARE  USED  TO  CREATE  INFO  NO-  THEELEMENTS 
OF  THE  2  NFO_ND  STACK  ARE  IN  THESAME  ORDER 
AS  THE  DATA  ELEMENTS  FOUND  IN  THE  PSET. 


CALLS  PROCEDURES: 
SEARCH  . 


X  INCLUDE  BEU; *».«.».**♦.♦**»*«*»**** 
/•  BEU  TEMPLATE  ♦/ 
OCL  t  T_ELEf.1ENT  BAStD(Q), 

2  LENGTH  FIXED  B!N(15), 

2  P_APRAY(I6)  PTR, 


FET00450 
FE  T 00460 
FET00470 
F  E  T  00*180 
FET00490 
FET00500 
FET  0051 0 
F  E  T  00520 
FET  00530 
FET00540 
F  E  1 00550 
FET00560 
FET  0057  0 
FET  00580 
FE I  00590 
FET0C60O 
FETOOGIO 
FET  00620 
FET  00630 
FET  00640 
FET  00650 
F  E 1 00660 
F£T  00670 
FET006B0 
FET  00690 
FET  00700 
FET007TO 
FET00720 
FET  00730 
FET  00740 
FET  00750 
FE 1 00760 
FET  00770 
FET  00780 
FET  00790 
FET  00800 
FET  008 1 0 
FET  00820 
FET  00830 
FET00Q40 
FET  00850 
FET  00860 
SEA02070 
SEA02080 
►SEA02090 
BCA00350 
BCA00360 
BCA00370 
BCA00380 


2  INFO, 

3  DATA  B I T ( 320  ) ; 


/•  STACK  TO  RETURN  FOUND  ELEMENTS  */ 

X  INCLUDE  INFO UNO; 

/.  DATA  STACK  RETURNED  BY  FETCH  «/ 

DCL  IN'O.NO  BIT(320)  EXTERNAL  CONTROLLED; 


•#***+♦*•**♦♦,  *  * 


XINCLUCE  IDS1 ;  .♦...»♦♦.*..•»*.**•***♦»***♦*•«*• 
/•  POINTER  STACK  RETURNED  BY  SEARCH  */ 
OCL  IDSi  PTR  EXTERNAL  CONTROLLED; 


/•  r.USC  DECLARATIONS  »/ 

DCL  VOOEI  0 1 T  (  2 ) .  FND  8IT(1).  (KEY, NAME)  BIT(*),IDXX  POINTER 
CONTROLLED,  (10,0,2)  PTR; 

/•  PROCEDURES  CALLED  «/ 

XINCLUOE  ESEARCH; * »  .».»..«•*-...»*»»****»*.****•»»•»***•*•**•*••**•*•• 

/«  SEARCH  MODULE  */ 

OCL  SEARCH  ENTRY(CIT(2) , BI T ( 64 ) , B I T ( 64 ) , POINTER. POINTER); 


12  1  1 


15  1 

16  1 


19  10 

20  1  0 

21  10 
22  1  0 


23  1  0  END  FETCH; 


IF  10  =  NULL (  ) 

THEN  00; 

/*  GET  IDS  OF  ITEMS  IN  SET  TO  BE  FETCHED  */ 

CALL  SEARCH (MODE  I , N AME , KE Y , I DXX , 2 ) ; 

L=ALLOCATION  (I0S1); 

I F  L>0  THEN  FND*  *  »  *  B ; 

ELSE  FND='0'B; 

/*  FETCH  DATA  CONTENTS  OF  BEUS  POINTED  TO  BY  IDSI  */ 
00  J=1  TO  L; 

/♦  PUT  ITEMS  ON  STACK  »/ 

ALLOCATE  INFO.ND  ; 

5  fjFO_ND  =  1 0S1  ->  DAT  A ; 

FREE  IDSi; 

END; 

RETURN; 

END; 

/•  IF  ONLY  1  ELEMENT  WAS  TO  BE  FETCHED  */ 

ALLOCATE  INFO  ND; 

INFO_ND= ID— >QATA ; 

FND* ' 1 1 B; 

RETURN; 


BCA00390 
BCA00400 
SEA02090 
SEA02100 
SEA021 10 
■SEA02120 
BCA00A50 
BC A00460 
SEAC2120 
■SEA02130 
BCA00420 
BCA00430 
S  E  A  0  2 1  3  0 
SEA021A0 
SEA02150 
SEA02160 
SEA02170 
■SEA02180 
BCA00700 
BCA00710 
BCA00720 
SEA021BO 
SEA02190 
SEA02200 
SEA02210 
SEA02220 
SEA02230 
SEA02240 
SEA02250 
SEA02260 
SEA02270 
SEA022BO 
SEA02290 
SEA02300 
SEA02310 
SEA02320 
SEA02330 
SEA02340 
SEA02350 
SEA02360 
SEA02370 
SEA02380 
SEA02390 
SEA02400 
SEA02410 
SEA02420 


324 


X Include  creates;- 


/**•**«*■ 

* 

* 

• 

MODULE 

DESCRIPTION 

• 

CREATEE! 

PROCEDU"  E 

(  STR  . 

/*  SIT(*)  »/ 

ZLEN , 

/*  FIXED  BI N ( 1 5 )  •/ 

IO_CREATED 

/♦  PTR  •/  ); 

. . . 

purpose; 

THIS  MODULE  IS  RESPONSIBLE  FOR  CREATING  THE  BASIC  STORED 
UNIT  OF  INFORMATION  IN  THE  SYSTEM,  CALLED  A  BINARY  EN¬ 
CODING  UNIT.  CONCEPTUALLY  A  BEU  LOOKS  AS  FOLLOWS: 


! LENGTH  J  POINTER  ARRAY 


DATA 


WHERE:  LENGTH 


LENGTH  OF  RELEVANT 
BEU  (IN  BITS)  .  IN  T 
DATA  AREA  IS  FIXED 
FIELD  INDICATES  THE 
AREA  WHICH  IS  VALID 
PLEMENA  t ION  THE  LEN 
OICATE  THE  ACTUAL  L 
POINTER  ARRAY  -  THIS  POINTER 
PLEMENT  BINARY  ASSO 
AS  WELL  AS  TO  LINK 
PSET.  DEFINEP  AND  D 
FOR  MANAGING  THE  PO 
ALLOCATING  POINTF.R 
POSES.  THE  STATUS  0 
CONTAINED  IN  THE  PS 
ENTRY.  IN  THIS  IMPL 
ARRAY  HAS  FIXED  EXT 
PLEMENT ATIONS  MAY  W 
A  FIXED  LENGTH  BIT 
THE  ACTUAL  DATA.  NO 
THE  BEU  ARE  RESPONS 
CONTENTS.  THIS  IS  0 
BASED  STRUCTURES  OH 


DATA 


DATA  IN  DATA  AREA 
HIS  IMPLEMENTATION  THE 
LENGTH,  SO  THE  LENGTH 
PORTION  OF  THAT  DATA 
IN  A  FUTURE  IM- 
GTH  FIELD  WOULD  IN- 
ENGTH  OF  THE  DATA  AREA 
ARRAY  IS  USED  TO  IM- 
C I  AT  IONS  BETWEEN  BEU 
BEUS  WITHIN  A  COMMON 
EFINEB  ARE  R ESPONS I  BIBLE 
INTER  ARRAYS.  I.E. 

SLOTS  TO  VARIOUS  PUR- 
F  POINTER  SLOTS  IS 
ET'S  P.CAT  CATALOGUE 
EMLNTAT ION  THE  PTR 
ENTS  (16).  FUTURE  IM- 
ANT  THIS  TO  BE  VARIABLE 
STRING  CONTAINING  THE 
TE:  MODULES  WHICH  ACCESS 
IBLE  FOR  INTERPRETING  ITS 
FTEN  DONE  BY  OVERLAYING 
THE  DATA  AREA. 


METHOD: 

THE  APPROACH  IS  VERY  SIMPLE: 

A)  IT  BEGINS  BY  ALLOCATING  A  BASED  STRUCTURE  CALLED 


•CRPOOOI 0 
CREOOOIO 
CRE00020 
CRE00030 
CRE00040 
CRE00050 
CRE  00060 
CRE00070 
CREOOOBO 
CRE00090 
CRE00100 
CRE001 10 
CRE  00 1 20 
CRE  00 1 30 
_CRE  00 1  AO 
j  CRE 00 1 50 
' CRE  00 1 60 
CRE00I70 
CRE00180 
CRE  00 1 90 
CRE00200 
CRE0021 0 
CRE00220 
CRE00230 
CRE00240 
CRE00250 
CRE00260 
CRE  00270 
CRE00280 
CRE  00290 
CRE00300 
CRE0031 0 
CRE00320 
CRE00330 
CRE00340 
CRE00350 
CRE00360 
CRE00370 
CRE00380 
CRE00390 
CRE00400 
CRE0041 0 
CRE00420 
CRE00430 
CRE00440 
CRE00450 


ffi  -4  Ol  Ul 


ELEMENT.  ELEMENT  IS  DECLARED  AS  FOLLOWS: 

1  ELEMENT, 

2  LENGTH  FIXED  81N(  15) , 

2  P_ARRAY(16)  PTR  INIT  ((16)  NULLO). 

2  INFO  8 1 T ( 32 0  )  ; 

B)  ELEMENT. LENGTH  AND  ELEMENT. INFO  ARE  SET  EQUAL  TO 
ZLEN  AND  STR  RESPECTIVELY. 

C)  RETURNS  A  PTR  ( 1 0_CRE  A  TED)  WHICH  POINTS  TO  THE  NEWLY 
ALLOCATED  BEU. 


INPUT  PARAMETERS: 

STR  -  BIT  STRING  OF  A  LENGTH  NOT  EXCEEDING  320  BITS. 
ZLEN  -  LENGTH  (IN  BITS)  OF  THE  ELEMENT  TO  BE  INSERTED. 
1 D_CR£  ATEO  -  NOT  SIGNIFICANT  ON  INPUT. 


OUTPUT  PARAMETERS: 

•  •••*  1 0_CRE  ATEO  -  A  PTR  WHICH  POINTS  TO  THE  BEU  CREATED. 


CALLS  PROCEDURES: 
NONE 


2  10  DCL  STR  BIT ( *  )  , Z  LEN  BIT(16),  ID_CRE ATED  POINTERS 

/*  3EU  STRUCTURE  «/ 

3  1  0  DCL  1  ELEMENT  BASEO(IO_CREATcD) , 

2  LENGTH  FIXEO  BIN< 15) , 

2  P  ARR  AY ( 1  6 )  POINTER  I N I  T ( ( 16) NUU(  )  )  , 
2  INFO  BIT (320)  INI T ( (320  ) ‘ 0  *  B) ; 

1  0  ALLOCATE  ELEMENT  ; 

1  0  ELEMENT . LENGTH* ZLEN; 

1  0  ELEMENT. INFO^STR: 

1  0  RETURN; 

i  o  end  creates; 


CRE00460 
' CRE00470 
CRE00480 
CRE00490 
CRE00500 
CRE005I 0 
CRE00S20 
CRE00530 
CHE00540 
CRL00550 
CRE00560 
CREC057Q 
CRC00580 
CRE  00590 
CRf  00600 
CREOOOI 0 
CRE00620 
CRE00630 
CRE  00640 
CRE00050 
CRC006G0 
CRE00670 
CRFO06B0 
CRE  00690 
CRE00700 
CRP0001 0 
CHP00020 
CRP00030 
CHP00040 
CRP00050 
CRP00060 
CRP00070 
CRP00080 
CRP00090 
CRP00100 
CRP001 10 
CRP001 20 
CRP001 30 
CRP00140 
CRP00150 


■ 


1 


I 

CJ 

N> 

O' 

I 


t 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 


0 

0 

0 

0 

0 

1 

2 

2 

2 

2 

2 

1 

0 

0 


MAPSET:  PR0C(MCDE,TYPE,  MAPI ,MAP2, FREE): 

DCL  (TYPE,  I)  FIXED  BIN ( 8 ) .FREE  BIT ( 8 ) , 

(MAPI  , MAP2.MAP(2) )  BIT(16),  MODE  BZ T ( 1 ) i 

MAP( 1 )=MAP1 


MAP(2 )*MAP2 ; 

DO  1*1 
IF 


o  i  6: 

SUB STR (MAP ( TYPE) ,1,1) 'MODE 
THEN  DO: 

S UBSTR ( MAPI ,1,1 )«( 'MODE)  ; 
S  UBSTR ( MAP2 , 1 , 1 )»(*MODE) ; 
F  REE*BIN( I ) ; 

RETURN; 


END: 

END; 

FREE-O; 

RETURN; 


0  END  MAPSET; 


UT 1 00010 
UT  1 00020 
UT 1 00030 
UT  100040 
UT 1 00050 
UT I  00060 
UT  I  00070 
UT 100080 
UT 1 00090 
UT l 00 1 00 
UTI001  10 
UT 1 00120 
UT 1 00 1 30 
UT 100140 
UT 1 00150 
UT 1 00160 
UT 1001 70 


OU>CD*40>U>.fc»U> 


1 

2 


1  1 
12 
13 


0  HASH:  PROC( SlR.NUMCHAR)  RETURNS(FIXED  0IN(15)); 

0  DC L  STR  0 1 T ( * )  ,  NUMCHAR  FIXED  BIN( 15) , TEMPCHAR  BIT ( 16) . 

(NUM. VALUE)  FIXED  B1N(31)  INIT(0).NAME  CHAR(8); 

0  UNSPEC ( NAME ) =S  T  R ; 

0  K=NUMCHA9; 

0  DO  J  = 1  0  K  BY  16: 

1  TE.APCHAR  =  SUBSTR(STR,U,16); 

i  num=tempchar: 

i  valuE=num+valuE; 

1  END; 

o  vmue=mod(value,si  ); 

0  IF  V A LU£=0  THEN  VALUE  • 1 J 

0  RETURN ( VALUE); 

0  END  HASH; 


UT 1 00 1 90 
UT 1 00200 
UT 1 002 1 0 
UT 1 00220 
UT 100230 
U  T 1 00240 
UT 100250 
UT 1 00260 
UT 100270 
Ui 100280 
UT 1 00290 
UT 100300 
UT 10031 0 
UT 100320 
UT 1 00330 
UT 100340 


I 

OJ 

N> 

-4 

I 


PRINTir:  proc< IFlag, ppp)  ; 

DC L  (P.PPP)  POINTER; 

OCL  1  T  CLEMENT  BASED(P), 

2  LEN  FIXED  B IN( 1 5 ) i 
2  P  ARRAV(16)  POINTER. 

2  DATA  BI T ( 320 ) ,  IFLAG  FIXED  BIN(15); 

IF  PPP  =  NUL  L (  )  THEN 

PUT  L 1 1 T ( 1  POINTER  IS  NULL1); 

ELSE  PUT  SKIP  EOIT( IFLAG, SUBSTR(PPP->DATA.t .96). SUBSTR(PPP->OATA. 

97,96) ) ( F(3) , B(96) , SKI P ( 1 ) . B( 96 ) ) S 
RETURN; 

END  PRINTIT; 


UT 1 00360 
UT  100370 
UT 1 00380 
UT  1 00390 
UT  1 00400 
VJT  1 004)0 
UT 1 00420 
UT 100430 
UT 1 00440 
UT 1 00450 
UT  1 00460 
UTI00470 


STMT  LEV  NT 


1 

2 

3 

4 

5 

6 
7 


0  PRINTP:  PROC(P); 

,  o  DC L  P  POINTER,  A  BIT<31),  TRY  PIXED  BIN(31); 

1  O  A=UNSPEC(P): 

t  0  TR  Y  =  A ; 

I  0  PUT  ED1U1RY)  (F(8)>; 

1  0  RETURN; 

1  0  END  PRINTP; 


UT 100490 
UT 100500 
UT 100510 
UT 100520 
UT100530 
UT  1 00540 
UTI00550 
UT I 00560 
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